以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ValueChanged  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193352)
--  作者：1234567
--  发布时间：2024/9/8 12:04:00
--  ValueChanged

If Forms ("过程记录").opened Then   
    Dim t1 As Table = Tables("过程记录_Table10")
    Dim S1 As String = t1.Current(t1.ColS("目录树生成列"))
    Dim S2 As String = Forms ("任务说明").Controls("TextBox2").text
    Dim S3 As String = "," & S2
    S1 = S1.Replace(S3, "")
    S1 = S1.Replace(S2, "")
    t1.Current(t1.ColS("目录树生成列")) = S1
End If


.NET Framework 版本：4.0.30319.1
Foxtable 版本：2022.8.18.1
错误所在事件：窗口, 任务说明, TextBox2, ValueChanged
详细错误信息：
String cannot be Of zero length.
Parameter name: oldValue
--  作者：有点蓝
--  发布时间：2024/9/8 15:24:00
--  
下面S2、S3必须有值，不能为空

    S1 = S1.Replace(S3, "")
    S1 = S1.Replace(S2, "")

加个判断
    Dim S2 As String = e.sender.text

If Forms ("过程记录").opened andalso S2 > "" Then   

    Dim t1 As Table = Tables("过程记录_Table10")
    Dim S1 As String = t1.Current(t1.ColS("目录树生成列"))

[此贴子已经被作者于2024/9/8 15:25:25编辑过]