以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  暂停代码后怎么继续执行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14534)

--  作者:476240618
--  发布时间:2011/11/22 22:36:00
--  暂停代码后怎么继续执行

Dim r As Row = Tables("挂号数据库").AddNew()
Forms("模糊查询").Open
If r("姓名") = "" Then
    Return
Else
    Dim rs As Row = Tables("处方抓药数据表").AddNew()
    Dim rc As Row = Tables("采集病症数据库").AddNew()
    Dim rf As Row = Tables("病证分析数据库").AddNew()
    If r IsNot Nothing Then
        rs("挂号号码") = r("挂号号码")
        rc("挂号号码") = r("挂号号码")
        rf("挂号号码") = r("挂号号码")
        rs("姓名") = r("姓名")
        rc("姓名") = r("姓名")
        rf("姓名") = r("姓名")
        rs("固定编号") = r("固定编号")
        rc("固定编号") = r("固定编号")
        rf("固定编号") = r("固定编号")
    End If
   End If

在打开模糊查询窗口后暂停执行下面的代码,等我选好名字后再向下执行应该怎么写代码?怎么让窗口中的关联表的文本框做到同步显示当前选择行呢?

代码在挂号数据库中的窗口中,挂号按钮,谢谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:蒋大夫.rar


--  作者:czy
--  发布时间:2011/11/22 23:02:00
--  

没看明白应该暂停哪些代码。

如果想关联表即时显示,增加行代码为:Tables("挂号数据库.处方抓药数据表").AddNew()


--  作者:czy
--  发布时间:2011/11/22 23:06:00
--  

将向三个关联表增加行的代码放到模糊查询窗口table控件的双击事件中。


--  作者:476240618
--  发布时间:2011/11/23 8:23:00
--  

多谢C总指点,

如果想关联表即时显示,增加行代码为:Tables("挂号数据库.处方抓药数据表").AddNew()

 

这样还是不能即时显示,我现在用代码上移一行,再下移一行。这样就可以了,就是绕的有点远。也不知道会不会出问题