以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  删除字符串中的指定内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193210)

--  作者:1234567
--  发布时间:2024/8/27 9:37:00
--  删除字符串中的指定内容

Dim dr As DataRow

With DataTables("目录树过滤")

    dr = .Find("表名 = \'工艺内容\' AND 列名 = \'加工人\'", "", 0)

End With

Dim txt2 As String = dr("过滤条件")

Dim tr As Row

If e.Form.DropTable IsNot Nothing Then

    tr = e.Form.DropTable.Current

    Dim txt1 As String = tr("加工人")

    txt1 = """, \'" & txt1 & "\'"""

   \' msgbox(txt1)

End If

txt2 = txt2.Replace(txt1, "")


图片点击可在新窗口打开查看此主题相关图片如下:6.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/8/27 9:45:00
--  
定义的变量都有使用范围,在if里面定义的变量,在if外面是不能使用的

If e.Form.DropTable IsNot Nothing Then

    tr = e.Form.DropTable.Current

    Dim txt1 As String = tr("加工人")

    txt1 = """, \'" & txt1 & "\'"""

   \' msgbox(txt1)

txt2 = txt2.Replace(txt1, "")

End If



--  作者:1234567
--  发布时间:2024/8/27 12:24:00
--  
Dim dr As DataRow
With DataTables("目录树过滤")
    dr = .Find("表名 = \'工艺内容\' AND 列名 = \'加工人\'", "", 0)
End With
Dim txt2 As String = dr("过滤条件")
Dim txt1 As String = "1"
txt1 = """,\'" & txt1 & "\'"""
OutPut.Show(txt1)\'                      命令窗口执行结果",\'1\'" 
txt2 = txt2.Replace(",\'1\'" , "")     用命令窗口执行结果数据代入,可以删除掉目录过滤表中数据
txt2 = txt2.Replace(txt1, "")       用变量名代入,不能删除目录过滤表数据,这是为什么?
dr("过滤条件") = txt2

--  作者:有点蓝
--  发布时间:2024/8/27 13:39:00
--  
txt1 = ",\'" & txt1 & "\'"