Dim tbl As Table = Tables("窗口1_Table1")
Dim t As WinForm.Table = e.Form.Controls("Table1")
If tbl.Current IsNot Nothing Then
If t.BindingField Like "BLZDZDK" Then ‘判断绑定的是哪个表！！
Tables("NO41").Current("JBMM") = tbl.Current("疾病编码")
Tables("NO41").Current("BLZD") = tbl.Current("疾病名称")
End If
If t.BindingField Like "ZLXTX" Then
Tables("NO41").Current("JBMM") = tbl.Current("疾病编码")
Tables("NO41").Current("BLZD") = tbl.Current("肿瘤形态学诊断")
End If
e.Cancel = True
e.Form.DropDownBox.CloseDropDown()
End If
问题如何解决，找不到思路！！
加好友 
发短信
Post By：2013/12/21 20:33:00 [显示全部帖子]
