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事件运行。我想用按钮执行，点击按钮后，先执行搜索，所搜文本框里的内容表中有没有，没有的话，处提示对话框，有的话再执行文本写入表及后续代码
加好友 
发短信
Post By：2019/5/23 18:26:00 [只看该作者]
