- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]在窗口中输入值，同步写表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169820)
-- 发布时间：2021/7/1 18:54:00
-- [求助]在窗口中输入值，同步写表
窗口中有一个文本框控件，本意是在这个框中输入文本，同步向表中写入值
比如输入100，则XA列应当是100，XA1列也是100，XA2＝0
比如输入102/13，则XA列＝"102/13"，XA1＝100，XA2＝13
现在带分隔符的时候，是正确的。只输入一个100，结果就不对了。
要怎么做呢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:文本框改变多列的值.zip |
-- 发布时间：2021/7/1 20:42:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:文本框改变多列的值.zip |
-- 发布时间：2021/7/2 8:49:00
--
这也太奇怪了，两份文件的代码一模一样的
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编辑过]
-- 发布时间：2021/7/2 8:51:00
--
不一样，绝对不一样
这个其实不算问题，眼拙而已
r("XA2") = 0