共7 条记录, 每页显示 10 条, 页签: [1]

标题：问题求解

1楼

sxdoc 发表于：2011/8/25 16:55:00

患者编号为12的患者2011-8-25再次来复诊，我希望在我点击临床表现、诊断、治疗按扭时均可出现一个窗口，这个窗口的左半边有一个大的文本框或消息框，可以自动执行我设好的代码，并把结果显示在左边。右边有一个用于输入文字的文本框，这样我可以把患者历次的记录内容全部浏览参照后输入新内容

此主题相关图片如下：问题求解.jpg

[此贴子已经被作者于2011-8-25 16:57:41编辑过]

2楼

sxdoc 发表于：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

3楼

sxdoc 发表于：2011/8/25 17:23:00

[此贴子已经被作者于2011-8-25 21:49:17编辑过]

4楼

狐狸爸爸 发表于：2011/8/25 17:50:00

你设置了密码，我进不去的，如何帮你啊。

5楼

狐狸爸爸 发表于：2011/8/25 18:02:00

临床表现帮你设置好了，其余的你自己照着设置即可：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:结石科数据库.rar

6楼

sxdoc 发表于：2011/8/25 22:05:00

实现其功能的代码放在哪呀

我怎么就没找找到

7楼

狐狸爸爸 发表于：2011/8/26 7:59:00

就在临床表现这个窗口的AfterLoad事件代码中。

共7 条记录, 每页显示 10 条, 页签: [1]