主题：如何实现全表搜索的这个功能？

你可以自己写个，例如在窗口加入一个文本框，一个按钮，按钮的代码为：

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("客户")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If