Dim dt As Date = Date.Now
Dim r2 As DataRow = DataTables("UserYE").Find("客户ID = '" & e.DataRow("客户ID") & "'")
If r2 IsNot Nothing Then
r2("客户余额") = DataTables("UserCK").Compute("Sum(存款金额)", "客户ID = '" & e.DataRow("客户ID") & "'") - DataTables("订单表").Compute("Sum(金额)","客户ID = '" & e.DataRow("客户ID") & "'")
r2("更新日期") = dt
r2.Save
End If