1 Me.ComboBox2.DisplayMember = "gxmc"
2 Me.ComboBox2.ValueMember = "gxbh"
3 Dim mdwbh = Me.ComboBox3.SelectedValue.ToString
4 Dim tt = (From t In jg.fjgk, g In jg.fgxk Where t.gxbh = g.gxbh And t.dwbh = mdwbh Select t.gxbh, g.gxmc).Distinct
5
6 'Me.ComboBox2.Items.Clear()
7 'For Each aa In tt
8 ' Me.ComboBox2.Items.Add(aa)
9 'Next
10
11 Me.ComboBox2.DataSource = tt
12
13 Dim mgxbh As String = Me.ComboBox2.SelectedValue
14 Dim mgxmc As String = Me.ComboBox2.SelectedItem.gxmc.ToString
浙公网安备 33010602011771号