Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("表A")
If txt = "" Then
tbl.Filter = ""
Else
txt = "'*" & txt & "*'"
tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If
可以看看这一节的内容:
http://help.foxtable.com/topics/1534.htm