主题：请教数据迁移

表1有A,B两列数据，表2有A列数据，B列数据是空白的，请教如何把表2的B列数据按照表1AB对应的方式填入表B呢？在命令窗口写代码执行一次那种，谢谢老师

参考

 

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

感谢版主