设计了两个文本框叠在一起，一个可见一个不可见（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
加好友 
发短信
Post By：2019/5/23 13:40:00 [只看该作者]
