1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
| Public Class Form1
Public mDataTable As New DataTable()
Public mBindingSource As New BindingSource
Public DicoColonne As Dictionary(Of String, String) = New Dictionary(Of String, String)
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
DicoColonne.Add("1", "Col1")
DicoColonne.Add("2", "Col2")
DicoColonne.Add("3", "Col3")
For Each Col As String In DicoColonne.Values
Dim Cols As DataColumn = New DataColumn()
Cols.ColumnName = Col
mDataTable.Columns.Add(Cols)
Next
For Each col As DataGridViewColumn In DataGridView1.Columns
mDataTable.Columns.Add(col.Name)
Next
mBindingSource.DataSource = mDataTable
With DataGridView1
.DefaultCellStyle.NullValue = Nothing
.DefaultCellStyle.BackColor = Drawing.Color.Gray
.RowHeadersVisible = False
.DataSource = mBindingSource
End With
mDataTable.Rows.Add(Date.Now, "brother", "high")
mDataTable.Rows.Add(Date.Now, "brother", "Urgent")
mDataTable.Rows.Add(Date.Now, "brother", "Low")
mDataTable.Rows.Add(Date.Now, "brother", "high")
mDataTable.Rows.Add(Date.Now, "brother", "high")
mBindingSource.DataSource = mDataTable
DataGridView1.DataSource = mBindingSource
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
mBindingSource.Filter = "Col3 = 'Low'"
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
mBindingSource.RemoveFilter()
End Sub
End Class |
Partager