Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文本框写入问题


  共有2722人关注过本帖树形打印复制链接

主题：文本框写入问题
帅哥哟，离线，有人找我吗？
sj67502588
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：25 积分：272 威望：0 精华：0 注册：2019/4/13 19:53:00 		文本框写入问题  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
sj67502588
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：25 积分：272 威望：0 精华：0 注册：2019/4/13 19:53:00 		  发帖心情 Post By：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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 5 次数据查询