Dim cmb As WinForm.ComboBox = e.SenderDim str As String = e.Form.Controls("name").ValueDim filter As String = Tables("生日提醒_Table1").filtercmb.ComboList = Tables("生日提醒_Table1").DataTable.GetComboListString("姓名", "客户供应商 = '" & str & "' and " & iif(filter > "", filter, "1=1"))