Dim str As String = e.Form.Controls("ComboBox1").Value
Dim dr As DataRow dr = DataTables("单位主表").Find("unitname = '" & str & "'")
If dr IsNot Nothing Then Dim cmb2 As WinForm.ComboBox = e.Form.Controls("combobox2") cmb2.ComboList = DataTables("员工表").GetComboListString("姓名", "所属单位号 = '" & dr("单位号") & "'") End If