主题：问题求解

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

 

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

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

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