主题：引用（请版主看一下很急）

此主题相关图片如下：qq截图20130322093934.png

If dr("增加") = True Then
    s = "计划号 = '" & dr("计划号") & "'and 材质 = '" &  dr("材质") & "' and 砖号 = '" & dr("砖号") & "'"
    dr1= DataTables("完成情况").find(s)
    If  dr1 Is Nothing  Then
        dr1 = DataTables("完成情况").Addnew
    End If
    Dim nms() As String = {"计划号","合同公司","订单号","材质","砖号"}
    For Each nm As String In nms
        dr1(nm) = dr(nm)
    Next

 

    dr1= DataTables("另一个表").find(s)
    If  dr1 Is Nothing  Then
        dr1 = DataTables("完成情况").Addnew
    End If
     nms() = New String() {"计划号","合同公司","订单号","材质","砖号"}
    For Each nm As String In nms
        dr1(nm) = dr(nm)
    Next

End If