- 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)
-- 发布时间：2013/4/2 16:32: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
上述代码如何修改 可以解决 这个错误 并提示 您的关键字不对 重新尝试
谢谢 高手指教
此主题相关图片如下：qq截图20130402163331.jpg
-- 发布时间：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
应该是这个问题吧
-- 发布时间：2013/4/2 21:41:00
--
是的 谢谢