主题：删除字符串中的指定内容

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

定义的变量都有使用范围，在if里面定义的变量，在if外面是不能使用的

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

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