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编辑过]