以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教数据迁移  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127173)
--  作者：y66751124
--  发布时间：2018/11/7 16:22:00
--  请教数据迁移
表1有A,B两列数据，表2有A列数据，B列数据是空白的，请教如何把表2的B列数据按照表1AB对应的方式填入表B呢？在命令窗口写代码执行一次那种，谢谢老师
--  作者：有点甜
--  发布时间：2018/11/7 16:35:00
--  

参考

 

For Each dr As DataRow In DataTables("表B").DataRows
    Dim fdr As DataRow = DataTables("表A").find("第一列=\'" & dr("第一列") & "\'")
    If fdr IsNot Nothing Then
        dr("第二列") = fdr("第二列")
    Else
        dr("第二列") = Nothing
    End If
Next
--  作者：y66751124
--  发布时间：2018/11/7 17:11:00
--  
感谢版主