- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 自动显示内容 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64320)
-- 发布时间：2015/2/11 0:02:00
-- 自动显示内容
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:病名表.table |
有两个表,分别病名表和诊断表,在诊断表窗口输入中医名称时哈萨克医名称怎么自动显示?
-- 发布时间：2015/2/11 3:15:00
--
DataColChanged事件中
If e.DataCol.Name = "中医诊断" Then
If e.NewValue Is Nothing Then
e.DataRow("哈萨克医诊断") = Nothing
Else
Dim dr As DataRow
dr = DataTables("病名表").Find("[中文名称] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
e.DataRow("哈萨克医诊断") = dr("哈萨克文名称")
End If
End If
End If
-- 发布时间：2015/2/11 9:08:00
--
看2楼，帮助文档 http://www.foxtable.com/help/topics/1459.htm