表A、B、C DataRowAdded事件
e.DataRow.Save
表A、B、C DataColChanged事件
Select Case e.DataCol.name
Case "第一列", "第二列", "第三列"
Dim dr As DataRow = DataTables("汇总").Find("编号 = '" & e.DataTable.name & "_" & e.DataRow("_Identify") & "'")
If dr Is Nothing Then
dr = DataTables("汇总").AddNew
dr("编号") = e.DataTable.name & "_" & e.DataRow("_identify")
End If
dr("第一列") = e.DataRow("第一列")
dr("第二列") = e.DataRow("第二列")
dr("第三列") = e.DataRow("第三列")
End Select