Question

i have the following code to fill two comboboxes using one dataset:

Private Sub sub_cbo_type_load()
    Dim ds As New DataSet
    ds = cls.cbo_type()
    If ds IsNot Nothing _
    AndAlso ds.Tables.Count > 0 _
    AndAlso ds.Tables(0).Rows.Count > 0 Then
        Me.r_cbo_type.DataSource = ds.Tables(0)
        Me.r_cbo_type.DisplayMember = "desc"
        Me.r_cbo_type.ValueMember = "code"
        Me.r_cbo_type.SelectedIndex = -1
        Me.m_cbo_type.DataSource = ds.Tables(0)
        Me.m_cbo_type.DisplayMember = "desc"
        Me.m_cbo_type.ValueMember = "code"
        Me.m_cbo_type.SelectedIndex = -1
    End If
End Sub

the problems is: whenever the index is changed in one combobox, it’s automatically changed in the other one too.

does anyone know how can i solve this?

thanks for your time.

Answer 1

Try cloning the tables:

Private Function CopyTable(ByVal sourceTable As DataTable) As DataTable
  Dim newTable As DataTable = sourceTable.Clone
  For Each row As DataRow In sourceTable.Rows
    newTable.ImportRow(row)
  Next
  Return newTable
End Function

Then your data sources would be referencing different sources:

Me.r_cbo_type.DataSource = CopyTable(ds.Tables(0))

Me.m_cbo_type.DataSource = CopyTable(ds.Tables(0))