主题：两表比对的相关问题，谢谢

For Each dr As DataRow In DataTables("表B").DataRows
    Dim fdr As DataRow = DataTables("表A").Find("第三列 = '" & dr("第二列") & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表A").AddNew()
        fdr("第三列") = dr("第二列")
    End If
Next