Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:ValueChanged

1楼
1234567 发表于:2024/9/8 12:04:00

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

2楼
有点蓝 发表于: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编辑过]
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 2 queries.