以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]2表数据配对导入的方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139260)
--  作者：garyvan
--  发布时间：2019/8/9 10:38:00
--  [求助]2表数据配对导入的方法
如何让工资汇总表，7月份的数据直接从七月工资表中直接导入。工号是唯一的，导入的时候工资要和人员匹配，
图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20190809103111.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_201908091031111.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2019/8/9 10:57:00
--  

例如

For Each dr1 As DataRow In DataTables("七月工资表").datarows
    Dim dr2 As DataRow = DataTables("工资汇总表").find("工号=\'" & dr1("工号") & "\'")
    If dr2 IsNot Nothing Then
        dr2("七月") = dr1("工资")
    End If
Next