以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 文本框写入问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135311) |
-- 作者:sj67502588 -- 发布时间:2019/5/23 13:40:00 -- 文本框写入问题 设计了两个文本框叠在一起,一个可见一个不可见(false),然后我把可见的输入上内容后点查询按钮,如果没查到就提示没查到,如果查到了,就把可见的文本框的内容写入到不可见的文本框中,代码如下,现在是无法写进去。 Dim tbf As WinForm.textbox = Forms("理赔管理").Controls("理赔管理中杆编号false") 这是不可见的控件 Dim txtf As String = tbf.text Dim cz As DataRow cz = DataTables("投保单管理").Find("中杆编号=\'"& txtf & "\'") If cz Is Nothing Then MessageBox.Show("此球拍未投保!", "提示") Else Dim tb As WinForm.textbox = Forms("理赔管理").Controls("理赔管理中杆编号") 这是可见的控件 Dim txt As String = tb.text txtf = txt |
-- 作者:有点蓝 -- 发布时间:2019/5/23 13:55:00 -- Dim tb As WinForm.textbox = Forms("理赔管理").Controls("理赔管理中杆编号") 这是可见的控件 tbf.text = tb.text
|
-- 作者:sj67502588 -- 发布时间:2019/5/23 16:32:00 -- Dim tbf As WinForm.textbox = Forms("理赔管理").Controls("理赔管理中杆编号false") Dim txtf As String = tbf.text Dim cz As DataRow cz = DataTables("投保单管理").Find("中杆编号=\'"& txtf & "\'") If cz Is Nothing Then MessageBox.Show("此球拍未投保!", "提示") Else Dim tb As WinForm.textbox = Forms("理赔管理").Controls("理赔管理中杆编号") Dim txt As String = tb.text tbf.text = tb.text 这么写了还是不能把tbf文本框里的值写进tb文本框里,因为tb文本框绑定的表中没有对应字段的变化,而且基于txt的后续代码也没有运行 或者说您有没有其他办法,让绑定到表的文本框的内容输入后先不写进表里,从而引发表中DataColChanged事件运行。我想用按钮执行,点击按钮后,先执行搜索,所搜文本框里的内容表中有没有,没有的话,处提示对话框,有的话再执行文本写入表及后续代码
[此贴子已经被作者于2019/5/23 16:37:08编辑过]
|
-- 作者:有点甜 -- 发布时间:2019/5/23 18:46:00 -- 做一个实例发上来测试。 |