比如,代码
Dim txt As String = e.form.controls("TextBox1").text
Tables("表A").filter = "第一列 like '%" & txt & "%'"
http://www.foxtable.com/webhelp/scr/1647.htm
http://www.foxtable.com/webhelp/scr/1058.htm