[求助]请教一个非常专业的资金处理流程 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我的系统，增加了个预存款功能。每次用户消费时。自动从系统存款中扣除金额

目前我是用存款的和减掉订单的和，等于客户余额，这是一种非常笨的方式

代码如下：

在数据保存时执行

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

想请教各位前辈，这种情况，应该如何处理！

[此贴子已经被作者于2017/7/20 16:33:52编辑过]

主题：[求助]请教一个非常专业的资金处理流程