主题：急：表匹配问题

很简单的，在命令窗口执行：

 

For each dr1 As DataRow In DataTables("表B").DataRows

    Dim dr2 AS DataRow = DataTables("表A").Find("账号 = '" & e.DataRow(“账号") & "'")

    if dr2 is Nothing Then

        dr2("金额") = dr1("金额")

    Else

        dr2("标志") = True

    End if

Next