Как заставить ComboBox при открытии формы показывать нужные позиции?
Есть форма, на ней DataGrid с тремя столбцами, кнопка Edit.
При нажатии на кнопку Edit открывается форма с двумя комбобоксами и текстовым полем.
Нужно чтобы текстовое поле содержало значение 3 столбца(что получается) а в комбобоксах были показаны элементы из 1 столбца в одном и из второго в другом.
Пишу так, на главной форме:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Public Shared selRow As DataRowView
Public Shared curMenComp As CurrencyManager
Public Shared editSw As Boolean
'Кнопки редактирования данных в DataGrid.
Private Sub editDiscountButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles editDiscountButton.Click
editSw = True
curMenComp = Me.BindingContext(dgDiscount.DataSource, dgDiscount.DataMember)
selRow = CType(curMenComp.Current, DataRowView)
frmDisc.editDiscount(selRow)
End Sub
На открывающейся форме:
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.
Public Sub editDiscount(ByVal selRow As DataRowView)
If CompanyForm.editSw Then
'Заполняем комбобоксы на форме.
cbProducer.DataSource = CompanyForm.dsProducer.Tables("ProducerTbl")
cbProducer.DisplayMember = "ProducerId"
cbTovgr.DataSource = CompanyForm.dsTovgr.Tables("TovarGroupTip")
cbTovgr.DisplayMember = "TovarGroupId"
'Заполняем данными из выбранной строки.
txtDiscount.Text = selRow("Discount")
cbProducer.SelectedItem = selRow("ProducerId")
cbTovgr.SelectedItem = selRow("TovarGroupId")
Else
'Заполняем комбобоксы на форме.
cbProducer.DataSource = CompanyForm.dsProducer.Tables("ProducerTbl")
cbProducer.DisplayMember = "ProducerId"
cbTovgr.DataSource = CompanyForm.dsTovgr.Tables("TovarGroupTip")
cbTovgr.DisplayMember = "TovarGroupId"
txtDiscount.Text = "0"
End If
Me.ShowDialog()
End Sub
Так вот при нажатии кнопки Edit TxtBox заполняется корректно,значения меняются в зависимости от выбранной строки, а вот комбобоксы всегда показывают первые элементы.
В чем проблем?
