主题：关于combobox的数据筛选问题

 参考代码，如果还不会做，请把例子上传

 

 

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

 e.Form.Controls("ComboBox1"). Text = ""