主题：[求助]两个表中数据同步到一个表中

Select Case e.DataCol.name

    Case "ImplementationProjectCode"

        Dim dr As DataRow = DataTables("ProjectSummary").Find("Implementati")

        If dr Is Nothing Then

            dr = DataTables("ProjectSummary").AddNew()

            dr("ImplementationProjectCode") = e.DataRow("ImplementationProjectCode")

            dr("ImplementationProjectsName") = e.DataRow("ImplementationProjectsName")

            dr("ImplementationImplementationUnit") = e.DataRow("ImplementationImplementationUnit")

        Else

            dr("ImplementationProjectCode") = e.DataRow("ImplementationProjectCode")

        End If

    Case "ImplementationProjectsName","ImplementationImplementationUnit"

        Dim dr As DataRow = DataTables("ProjectSummary").Find("Implementati")

        If dr IsNot Nothing Then

            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)

        End If

End Select