Public Class Form7
Dim ComboBoxItemsDataTable As New DataTable
Dim DataView2 As New DataView
Dim DataView3 As New DataView
Dim DataView4 As New DataView
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Configure DataTable and add 4 rows
Me.ComboBoxItemsDataTable.Columns.Add("Column1", System.Type.GetType("System.Int32"))
Me.ComboBoxItemsDataTable.TableName = "ComboBoxItemsDataTable"
Dim dr As DataRow = Me.ComboBoxItemsDataTable.NewRow
dr(0) = 1
Me.ComboBoxItemsDataTable.Rows.Add(dr)
dr = Me.ComboBoxItemsDataTable.NewRow
dr(0) = 2
Me.ComboBoxItemsDataTable.Rows.Add(dr)
dr = Me.ComboBoxItemsDataTable.NewRow
dr(0) = 3
Me.ComboBoxItemsDataTable.Rows.Add(dr)
dr = Me.ComboBoxItemsDataTable.NewRow
dr(0) = 4
Me.ComboBoxItemsDataTable.Rows.Add(dr)
'Configure the DataViews
Me.DataView2.Table = Me.ComboBoxItemsDataTable
Me.DataView3.Table = Me.ComboBoxItemsDataTable
Me.DataView4.Table = Me.ComboBoxItemsDataTable
'Set the first combobox to the DataTable
Me.ComboBox1.DataSource = Me.ComboBoxItemsDataTable
Me.ComboBox1.DisplayMember = "Column1"
Me.ComboBox1.ValueMember = "Column1"
'Set other comboboxs to DataViews
Me.ComboBox2.DataSource = Me.DataView2
Me.ComboBox2.DisplayMember = "Column1"
Me.ComboBox2.ValueMember = "Column1"
Me.ComboBox3.DataSource = Me.DataView3
Me.ComboBox3.DisplayMember = "Column1"
Me.ComboBox3.ValueMember = "Column1"
Me.ComboBox4.DataSource = Me.DataView4
Me.ComboBox4.DisplayMember = "Column1"
Me.ComboBox4.ValueMember = "Column1"
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles ComboBox1.SelectedIndexChanged, ComboBox2.SelectedIndexChanged, ComboBox3.SelectedIndexChanged
Call Me.SetDataViewFilters()
End Sub
Private Sub SetDataViewFilters()
'Set Row Filters for DataView
Try
Me.DataView2.RowFilter = "Column1 <> " & Me.ComboBox1.Items(Me.ComboBox1.SelectedIndex)(0).ToString
Catch ex As Exception
End Try
Try
Me.DataView3.RowFilter = "Column1 <> " & Me.ComboBox1.Items(Me.ComboBox1.SelectedIndex)(0).ToString & " AND Column1 <> " & Me.ComboBox2.Items(Me.ComboBox2.SelectedIndex)(0).ToString
Catch ex As Exception
End Try
Try
Me.DataView4.RowFilter = "Column1 <> " & Me.ComboBox1.Items(Me.ComboBox1.SelectedIndex)(0).ToString & " AND Column1 <> " & Me.ComboBox2.Items(Me.ComboBox2.SelectedIndex)(0).ToString & " AND Column1 <> " & Me.ComboBox3.Items(Me.ComboBox3.SelectedIndex)(0).ToString
Catch ex As Exception
End Try
End Sub
End Class