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


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

主题:文本框写入问题

帅哥哟,离线,有人找我吗?
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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/5/23 13:55:00 [只看该作者]

Dim tb As WinForm.textbox = Forms("理赔管理").Controls("理赔管理中杆编号")            这是可见的控件
tbf.text tb.text

 回到顶部
帅哥哟,离线,有人找我吗?
sj67502588
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/23 18:46:00 [只看该作者]

做一个实例发上来测试。

 回到顶部