主题：A表增加了记录，B表对应行 数值也改变，怎么实现

Select Case e.datacol.Name

            Case "列名1", "列名2"

                Dim dr As DataRow

                dr = DataTables("表B").Find("列名1='" & e.datarow("列名1") & "' And 列名2='" & e.datarow("列名2") & "'")

                If dr IsNot Nothing Then '如果找到

                    dr("列名1") = e.datarow("列名1")

                    dr("列名2") = e.datarow("列名2")

                Else

                    Dim dx As DataRow = DataTables("表B").AddNew

                    dx("列名1") = e.datarow("列名1")

                    dx("列名2") = e.datarow("列名2")

                End If

        End Select