问题求解 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 问题求解

共有9805人关注过本帖树形打印复制链接主题：问题求解

sxdoc

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：278 积分：2387 威望：0 精华：0 注册：2011/8/18 8:33:00

问题求解

Post By：2011/8/25 16:55:00 [只看该作者]

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

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

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

sxdoc

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：278 积分：2387 威望：0 精华：0 注册：2011/8/18 8:33:00

Post By：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