主题：[求助] 表A 填入数据时，数据自动写入表B

有以下问题，

1、经常变动的应该只有存款金额，建议你第一行改为If e.DataCol.Name = "存款金额" then

2、r2("客户余额") = r2("客户余额") + e.DataRow("存款金额")  当你的客户ID或客户名称修改时，就会再次累加r2("客户余额")
3、第二行需要改成：If e.DataRow.IsNull("存款客户") = False AndAlso e.DataRow.IsNull("客户ID") = False Then

If e.DataCol.Name = "存款客户" OrElse e.DataCol.Name = "客户ID" Then
    If e.DataRow("存款客户") <> Nothing AndAlso e.DataRow("客户ID") <> Nothing Then
        Dim r2 As DataRow = DataTables("UserYE").Find("客户ID = '" & e.DataRow("客户ID") & "'")
        If r2 IsNot Nothing Then '如果不为空,则在原来的数量上加上新的数量
            r2("客户余额") = r2("客户余额") + e.DataRow("存款金额")
            r2.Save
        Else
            Dim r3 As Row = Tables("UserYE").AddNew '否则新增一行 
           r3("客户ID") = e.DataRow("客户ID")
           r3("客户名称") = e.DataRow("存款客户")
           r3("客户余额") = e.DataRow("存款金额")
            r3.Save
        End If
    End If
End If