Dim cmb As WinForm.ComboBox = e.SenderDim str As String = e.Form.Controls("ComboBox1").Value
Dim xms As String = e.Form.Controls("ComboBox2").Valuecmb.ComboList = DataTables("driverinfo").GetComboListString("姓名", "车号 = '" & str & "' and 姓名 not in('" & xms.Replace(",", "','") & "')")