主题：[求助] 表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

例子发上来

代码，应该是没错吧

有以下问题，

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

应该使用Compute进行合计，而不是进行累加

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

参考Find的用法

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