以文本方式查看主题

-  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=53401)
--  作者：zyqzyy
--  发布时间：2014/7/7 11:55:00
--  [求助]这样的查找条件如何写？

查找的列中有 [ 、 ] 、（ 、）、空格等符号，如何写查找条件？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:查找.foxdb
--  作者：Bin
--  发布时间：2014/7/7 11:58:00
--  
[ 中括号要用[中括号括起来 其他的没问题

例如查找[  要用[[]
--  作者：有点甜
--  发布时间：2014/7/7 12:01:00
--  

 代码

 

Dim Val As String
If InputValue(Val, "查找文件","请输入文件号:" & vbCrLf & "(模糊查找)" & vbCrLf & "输入文件号的关键词!") Then
   
    If val = "" Then
        Tables("文件表").DataTable.LoadFilter = ""
    Else
        DataTables("文件表").LoadFilter = "文件号  Like  \'%" & val.Replace("[", "@[#").Replace("]", "@]#").Replace("@", "[").Replace("#", "]") & "%\'"
        Tables("文件表").DataTable.Load()
    End If
End If
--  作者：zyqzyy
--  发布时间：2014/7/7 14:58:00
--  

甜 老大，不行呀！
--  作者：Bin
--  发布时间：2014/7/7 15:10:00
--  
Dim Val As String
If InputValue(Val, "查找文件","请输入文件号:" & vbCrLf & "(模糊查找)" & vbCrLf & "输入文件号的关键词!") Then
    
    If val = "" Then
        Tables("文件表").DataTable.LoadFilter = ""
    Else
        DataTables("文件表").LoadFilter = "文件号  Like  \'%" & val.Replace("[", "[[]").Replace("]", "[]]").Replace("#", "[#]") & "%\'"
        Tables("文件表").DataTable.Load()
    End If
End If