按bin说的,不要放在textchanged事件中,这样会慢死人,放在某个按钮中,输入完毕后,单击这个按钮,代码大概:
Dim txt As String = e.Form.controls("输入框").Value
If txt > "" Then txt = "'*" & txt & "*'" txt = "客户名称 Like " & txt & " Or 助记名称 Like " & txt & " Or 销售机会 Like " & txt & " Or 联系人 Like " & txt DataTables("客户信息表").Loadfilter = txt DataTables("客户信息表").LoadEnd If