这也太奇怪了，两份文件的代码一模一样的
CS_TextBox1_Validating
Dim x As String = e.Sender.text
Dim r As Row = Tables("XX").Rows(0)
r("XA") = x
If x.Contains("/") = True Then
r("XA1") = val(x.Split("/")(0))
r("XA2") = val(x.Split("/")(1))
Else
r("XA1") = val(x)
r("XA1") = 0 －－－－知道了，这里复制的时候出问题了，应当是XA2
End If
CS_TextBox1_Validating
Dim x As String = e.Sender.text
Dim r As Row = Tables("XX").Rows(0)
r("XA") = x
If x.Contains("/") = True Then
r("XA1") = val(x.Split("/")(0))
r("XA2") = val(x.Split("/")(1))
Else
r("XA1") = val(x)
r("XA2") = 0
End If
[此贴子已经被作者于2021/7/2 8:52:23编辑过]
加好友 
发短信
Post By：2021/7/1 18:54:00 [显示全部帖子]
