主题：追载查询

Dim str As String = e.form.controls("Textbox1").Text
Dim filter As String = "1=2"
For Each c As Col In CurrentTable.Cols
    filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"
Next
CurrentTable.Filter = iif(CurrentTable.Filter>"", "(" & CurrentTable.Filter & ") Or ", "")  & "(" & filter & ")"

 参考

http://www.foxtable.com/webhelp/scr/2914.htm