以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  当前页模糊查询设置  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=30718)
--  作者：XYT
--  发布时间：2013/4/2 16:43:00
--  

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("主表")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'*" & txt & ""*\'""
    tbl.Filter = "一级 Like " & txt & " Or 四级 Like " & txt & " Or 五级 Like " & txt & " Or 说明 Like " & txt & " Or 标签 Like " & txt  & txt
End If

应该是这个问题吧