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