- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 问题求解 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12201)
-- 发布时间：2011/8/25 16:55:00
-- 问题求解
患者编号为12的患者2011-8-25再次来复诊，我希望在我点击临床表现、诊断、治疗按扭时均可出现一个窗口，这个窗口的左半边有一个大的文本框或消息框，可以自动执行我设好的代码，并把结果显示在左边。右边有一个用于输入文字的文本框，这样我可以把患者历次的记录内容全部浏览参照后输入新内容
此主题相关图片如下：问题求解.jpg
[此贴子已经被作者于2011-8-25 16:57:41编辑过]
-- 发布时间：2011/8/25 16:57:00
--
Dim drs As List(Of DataRow)
drs = DataTables("诊疗记录表").Select("[患者编号] = \'12\'")
For Each dr As DataRow In drs
Output.Show(dr("诊疗日期"))
Output.Show(("病史:")& chr(13) & chr(10)+dr("临床表现"))
Output.Show(("诊断:")& chr(13) & chr(10)+dr("诊断"))
Output.Show(("处理:")& chr(13) & chr(10)+dr("治疗") & chr(13) & chr(10))
Next
-- 发布时间：2011/8/25 17:23:00
--
[此贴子已经被作者于2011-8-25 21:49:17编辑过]
-- 发布时间：2011/8/25 17:50:00
--
你设置了密码，我进不去的，如何帮你啊。
-- 发布时间：2011/8/25 18:02:00
--
临床表现帮你设置好了，其余的你自己照着设置即可：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:结石科数据库.rar |
-- 发布时间：2011/8/25 22:05:00
--
实现其功能的代码放在哪呀
我怎么就没找找到
-- 发布时间：2011/8/26 7:59:00
--
就在临床表现这个窗口的AfterLoad事件代码中。