这是我在窗口的全局事件中的代码：Dim s1() As String
Dim t,s2 As String
Dim dt As Table = Tables("临床资料登记_table1")
If dt.Current IsNot Nothing Then
t=dt.Current("信息编号")
s1= t.Split("-")
s2 = s1(2)
If s2 Like "05*" Then
For Each c As WinForm.Control In e.Form.Controls
If Typeof c Is winform.recordgrid Then
Dim g As WinForm.RecordGrid=c
Dim bctr = g.baseControl
For Each r As object In bctr.Rows
For Each r1 As Row In Tables("实验室检查维护").Rows
If r.caption = r1("检验项目") Then
Forms("临床资料登记").controls("TextBox2").value=r1("正常值")
MessageBox.show(r1("正常值"))
forms("临床资料登记").controls("TextBox3").value=r1("临床意义")
End If
Next
' msgbox(r.caption)
' msgbox(r(1))
Next
End If
Next
End If
End If
需要用全局代码换掉：
For Each r As object In bctr.Rows
For Each r1 As Row In Tables("实验室检查维护").Rows
If r.caption = r1("检验项目") Then
Forms("临床资料登记").controls("TextBox2").value=r1("正常值")
MessageBox.show(r1("正常值"))
forms("临床资料登记").controls("TextBox3").value=r1("临床意义")
End If
Next
' msgbox(r.caption)
' msgbox(r(1))
Next
[此贴子已经被作者于2016/12/30 9:10:28编辑过]
加好友 
发短信
Post By：2016/12/30 8:59:00 [显示全部帖子]
此主题相关图片如下：360反馈意见截图182805125782112.png