表名一定要写对
e.sender.ComboList = DataTables("客户列表").GetComboListString("联系人","联系人 = '" & e.Form.Controls("Table1").Table.Current("联系人") & "'")