Foxtable(狐表)用户栏目专家坐堂 → [求助]2表数据配对导入的方法


  共有3598人关注过本帖树形打印复制链接

主题:[求助]2表数据配对导入的方法

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部