主题：请教数据迁移

参考

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