以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  列关联的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=187432)

--  作者:wymoonwalker
--  发布时间:2023/7/18 10:34:00
--  列关联的问题
 请教大神。我有5个表,每个表都有身份证号这一列,而且5个表里的人员都不重复,每个表还有审批这一列。我新作一个汇总表A,将5个表里的所有人员集合在一起,并且保留身份证列,那么,能不能引用每个人员的审批列?
--  作者:有点蓝
--  发布时间:2023/7/18 10:39:00
--  
方法1、这5个表作为父表分别和汇总表关联
--  作者:wymoonwalker
--  发布时间:2023/7/22 19:23:00
--  
 If e.DataCol.Name = "身份证号" Then
    Dim dr As DataRow
    dr = DataTables("表1").Find("身份证号 = \'" & e.DataRow("身份证号") & "\'")
    If dr IsNot Nothing  Then
        e.DataRow("报告审批") = dr("审批")
    End If
End If

--  作者:wymoonwalker
--  发布时间:2023/7/22 19:27:00
--  
跨表引用上述代码,数据是可以正常引用表1显示的。那么表2、表3、表4、表5依次累加复制上述代码也是可以运行的,就是很繁琐。请问大神,改动哪儿可以同时实现呢?



--  作者:有点蓝
--  发布时间:2023/7/24 8:58:00
--  
只能一个个表的设置