以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]将一张表上的一列数据拷贝到另一张表相对应的行上  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141901)

--  作者:kai
--  发布时间:2019/10/14 7:37:00
--  [求助]将一张表上的一列数据拷贝到另一张表相对应的行上

图片点击可在新窗口打开查看此主题相关图片如下:批注 2019-10-14 073254.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:批注 2019-10-14 0732 54.jpg
图片点击可在新窗口打开查看
怎么将电子档号数据表 中 档号列 的数据信息拷贝到 电子纸质文件信息对比表 的电子档号数据列中,并和 电子纸质文件信息对比表 中的 档号列 的数据信息相对应(相同的列在一行,没有对应的信息往下排)怎么办?求大神指点

--  作者:kai
--  发布时间:2019/10/14 7:44:00
--  
代码怎么写?我不明白
--  作者:有点蓝
--  发布时间:2019/10/14 9:54:00
--  
For Each r As Row In  Tables("电子档号").rows
    Dim dr As DataRow = DataTables("电子纸质文件信息").find("部门=\'" & r("部门") & "\' and 年度=\'" & r("年度") & "\' and ...其它条件自己参考补齐...")
    If dr IsNot Nothing Then
        dr("电子档号数据") = r("文件档号")
    End If
Next