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

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

 

下面是图片，客户ID 和客户名称都写过来了，就金额 没写过来

 

此主题相关图片如下：1.png


此主题相关图片如下：2.png

代码，应该是没错吧

关联条件 怎么写。以客户ID一样就行吗？

谢谢，有点蓝版主和2900819580  指导。  有点蓝老师，不能使用您说的累计，累计在删除的情况下金额会重新统计，然后再写到客户余额里，这样就不对了。