01.
Imports
System.Data
02.
Imports
System.Data.SqlClient
03.
Imports
System.Data.OleDb
04.
Imports
System.IO
05.
06.
Public
Class
Form1
07.
Dim
DataGridView1Data
As
DataTable
08.
Dim
DataGridView2Data
As
DataTable
09.
10.
Private
Sub
Form1_Load(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
11.
DataGridView1Data =
New
DataTable()
12.
DataGridView2Data =
New
DataTable()
13.
14.
DataGridView1Data = GetMonth()
15.
DataGridView1.DataSource = DataGridView1Data
16.
DataGridView1.AllowUserToAddRows =
False
17.
DataGridView1.AllowUserToDeleteRows =
False
18.
DataGridView1.AllowUserToOrderColumns =
False
19.
DataGridView1.AllowUserToResizeColumns =
False
20.
DataGridView1.AllowUserToResizeRows =
False
21.
DataGridView1.
ReadOnly
=
True
22.
23.
DataGridView2Data = DataGridView1Data.Clone()
24.
DataGridView2.DataSource = DataGridView2Data
25.
DataGridView2.AllowUserToAddRows =
False
26.
DataGridView2.AllowUserToDeleteRows =
False
27.
DataGridView2.AllowUserToOrderColumns =
False
28.
DataGridView2.AllowUserToResizeColumns =
False
29.
DataGridView2.AllowUserToResizeRows =
False
30.
DataGridView2.
ReadOnly
=
True
31.
32.
ComboBox1.DataSource = GetMonth()
33.
ComboBox1.DisplayMember =
"MonthName"
34.
End
Sub
35.
36.
Private
Function
GetMonth()
As
DataTable
37.
Dim
sqlConnectionString
As
String
=
"Data Source=TUNGMAN\SQLEXPRESS;Initial Catalog=SqlDatabase;Integrated Security=True"
38.
Dim
SqlConnection
As
SqlConnection =
New
SqlConnection(sqlConnectionString)
39.
40.
Dim
sqlCommandString
As
String
=
"Select [MonthID], [MonthName] From [TableMonth]"
41.
Dim
sqlCommand
As
SqlCommand =
New
SqlCommand(sqlCommandString, SqlConnection)
42.
43.
Dim
dataTable
As
DataTable =
New
DataTable()
44.
Dim
sqlDataAdapter
As
SqlDataAdapter =
New
SqlDataAdapter(sqlCommand)
45.
sqlDataAdapter.Fill(dataTable)
46.
47.
Return
dataTable
48.
End
Function
49.
50.
Private
Sub
DataGridView1_CellDoubleClick(
ByVal
sender
As
Object
,
ByVal
e
As
System.Windows.Forms.DataGridViewCellEventArgs)
Handles
DataGridView1.CellDoubleClick
51.
DataGridView2Data.ImportRow(DataGridView1Data.Rows(e.RowIndex))
52.
53.
DataGridView2.DataSource = DataGridView2Data
54.
55.
DataGridView1Data.Rows(e.RowIndex).Delete()
56.
DataGridView1Data.AcceptChanges()
57.
DataGridView1.DataSource = DataGridView1Data
58.
End
Sub
59.
60.
Private
Sub
DataGridView2_CellDoubleClick(
ByVal
sender
As
Object
,
ByVal
e
As
System.Windows.Forms.DataGridViewCellEventArgs)
Handles
DataGridView2.CellDoubleClick
61.
DataGridView1Data.ImportRow(DataGridView2Data.Rows(e.RowIndex))
62.
63.
DataGridView1.DataSource = DataGridView1Data
64.
65.
DataGridView2Data.Rows(e.RowIndex).Delete()
66.
DataGridView2Data.AcceptChanges()
67.
DataGridView2.DataSource = DataGridView2Data
68.
End
Sub
69.
70.
Private
Sub
DataGridView1_CellFormatting(
ByVal
sender
As
Object
,
ByVal
e
As
System.Windows.Forms.DataGridViewCellFormattingEventArgs)
Handles
DataGridView1.CellFormatting
71.
If
e.ColumnIndex =
Me
.DataGridView1.Columns(
"MonthName"
).Index _
72.
AndAlso
(e.Value IsNot
Nothing
)
Then
73.
74.
Me
.DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).ToolTipText = e.Value.ToString()
75.
End
If
76.
End
Sub
77.
78.
Private
Sub
ComboBox1_SelectedIndexChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
ComboBox1.SelectedIndexChanged
79.
80.
DataGridView1Data = GetMonth()
81.
DataGridView1.DataSource = DataGridView1Data
82.
83.
84.
DataGridView2Data.Clear()
85.
DataGridView2.DataSource = DataGridView2Data
86.
End
Sub
87.
End
Class