Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")dim s as string
If txt = "" Then
s = ""
Else
txt = "'%" & txt & "%'"
s = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End Ifdatatables("窗口1_Table1").loadfilter = s
datatables("窗口1_Table1").loadpage = 0
datatables("窗口1_Table1").load
e.Form.DropDownBox.Select()