以文本方式查看主题

-  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=140952)
--  作者：81538475
--  发布时间：2019/9/18 9:54:00
--  [求助]加载条件里面有 【】 如何处理呢
 Dim rs As String
        Dim rs2 As String
        For Each r As Row In Tables("XMFP").rows
             Dim xm As String = r("项目名称").replace("\'", "\'\'").replace("[","\'[\'").replace("]","\']\'")
            Dim rw As String = r("任务").replace("\'", "\'\'")
            rs= RS & "," & (xm)
            rs2= RS2 & "," & (rw)
        Next
rs=rs.Trim(",")
        rs2=rs2.Trim(",")
DataTables("任务进度记录").LoadFilter=  "convert(varchar(255), 项目名称) In (" & RS & ") and convert(varchar(255), 任务) in (" & RS2 & ") "
        DataTables("任务进度记录").load
[此贴子已经被作者于2019/9/18 10:04:17编辑过]
--  作者：有点蓝
--  发布时间：2019/9/18 10:16:00
--  
Dim xm As String = r("项目名称").replace("\'", "\'\'").replace("[","[[]").replace("]","[]]")
--  作者：81538475
--  发布时间：2019/9/18 10:56:00
--  
之前的 [主角]  变成这样的，后面的replace把前边的replace 的括号给修改了。

[[[]]主角[]]
--  作者：有点蓝
--  发布时间：2019/9/18 11:16:00
--  
Dim xm As String = r("项目名称").replace("\'", "\'\'").replace("[","$").replace("]","[]]").replace("$","[[]")