- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 删除字符串中的指定内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193210)
-- 发布时间：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
-- 发布时间：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 & "\'"