主题：如何写表a到表b提值的代码

Dim fdr As DataRow = DataTables("表B").find("编码='" & e.DataRow("编码") & "'")

If fdr IsNot Nothing Then

    msgbox("找到")

    If fdr.DataTable.datacols.contains(e.DataRow("表B列名")) Then

        msgbox(2)

        e.DataRow("取值") = fdr(e.DataRow("表B列名"))

    Else

        msgbox(1)        

        e.DataRow("取值") = Nothing

    End If

End If