Dim cmb1 As WinForm.ComboBox Dim cmb2 As WinForm.ComboBox cmb1 = e.form.Controls("ComboBox1") cmb2 = e.form.Controls("ComboBox2") cmb1.ComboList = DataTables("T_客户").SQLGetComboListString("客户ID") cmb2.Combolist = DataTables("T_B客户").SQLGetComboListString("二类客户名","[客户ID] = '" & cmb1.text & "'")
|