以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教:tab control 页面集合的用法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104892)

--  作者:puresky
--  发布时间:2017/8/7 23:41:00
--  请教:tab control 页面集合的用法
本人想给患者信息设计一个登记系统, 信息包括,基本信息、治疗信息、随访信息、实验室检查信息 总之好几个表。想使用页面集合的控件,弄一个录入窗口,请问怎么搞?我想说的意思是,这些个分页的信息,都是同一个患者的。怎么才能把这些个分页的信息联结在一起表示同一个人的信息。?
--  作者:有点色
--  发布时间:2017/8/8 8:51:00
--  

 方法一:直接写代码控制筛选,如

 

Tables("表A").filter = "编号 = \'12345\'"

Tables("表B").filter = "编号 = \'12345\'"

 

 方法二:你可以设置父子关联,一个患者信息表为父表,其余的为子表,然后直接绑定关联表即可。


--  作者:puresky
--  发布时间:2017/8/9 12:15:00
--  
代码筛选,在哪个地方,写? 第二,关联,只有两个表都有了同一 编号,才能关联,请问,我在窗口新增一个记录(新编号),如何让其他子表也相应增加 一个记录(新编号)? 设计卡在这里了,很急,请帮忙解答.
--  作者:有点甜
--  发布时间:2017/8/9 15:29:00
--  

1、可以写在窗口afterLoad事件。

 

2、你应该在DataColChanged事件,也就是编号修改的时候,新增,如代码

 

If e.DataCol.Name = "编号" Then

    Dim ndr As DataRow = DataTables("子表").addNew

    ndr("编号") = e.datarow("编号")

End If


--  作者:puresky
--  发布时间:2017/8/9 16:04:00
--  
谢谢,我摸索出来了,如您介绍的第二种方法。