petalvik , не сразу обратил внимание о чем Вы имели ввиду в указанной ссылке. Беру свои слова обратно.
Сделал, только немного иначе(не увидел смысла привязывать именно binding к первому комбо).
На Load формы:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Dim cmbTypeDevice As New DataGridViewComboBoxColumn
Dim cmbNameDevice As New DataGridViewComboBoxColumn
Dim da1 As New OleDbDataAdapter("Select * From tblTypeDevice", connection)
Dim da2 As New OleDbDataAdapter("Select * From tblNameDevice", connection)
Dim dt1 As New DataTable
Dim dt2 As New DataTable
da1.Fill(dt1)
da2.Fill(dt2)
ds.Tables.Add(dt1)
ds.Tables.Add(dt2)
With cmbTypeDevice
.DataSource = ds.Tables(0)
.DisplayMember = "TypeDevice"
.ValueMember = "id"
.FlatStyle = FlatStyle.Flat
End With
DataGridView1.Columns.Add(cmbTypeDevice)
DataGridView1.Columns.Add(cmbNameDevice)
В событии DataGridView1_EditingControlShowing:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
If DataGridView1.CurrentCell.ColumnIndex = 1 Then
Dim control As ComboBox = CType(e.Control, DataGridViewComboBoxEditingControl)
Dim bs As New BindingSource
bs.DataSource = ds.Tables(1)
bs.Filter = "idTypeDevice=" & Convert.ToInt32(DataGridView1.CurrentRow.Cells(0).Value.ToString()) & ""
With control
.DataSource = bs
.DisplayMember = "nDevice"
.ValueMember = "id"
.FlatStyle = FlatStyle.Flat
End With
End If
Работает, но есть пара нюансов.
1. Когда "кликаешь" на комбо в гриде, то не сразу открывается список значений, только на 3 раз.
2. После того как выбрать значение в первом и втором комбо, а затем перейти на следующую запись/строку, то выдает сообщение/ошибку(см. аттач) и во втором комбо пропадает значение(которое введено было в первой записи)
Как исправить эти "эффекты" или что делаю не так?
Спасибо!
