参考高效流水账 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，我这个余额的做成这样，可以正常运行，您帮忙看下，是否可有优化或者更高效的办法：

此主题相关图片如下：微信截图_20190920172642.png

Dim cmd As new sqlcommand

cmd.c

'Dim r As DataRow = e.DataRow 之前写在表事件 beforesave,现在改成写在服务器处理，改成for each

cmd.CommandText = "selec t * from 资金日报账户表 where 日期 = '2019-01-01'"

Dim t As DataTable = cmd.ExecuteReader

For Each r As DataRow In t.DataRows

cmd.CommandText = "Selec t * From {资金日报账户表} where 日期 > '" & r("日期") & "'" & _

" And 分销商 = '" & r("分销商") & "' And 类型 = '" & r("类型") & "' and 项目 = '" & r("项目") & "' order by 日期"

Dim dt As DataTable = cmd.ExecuteReader(True)

Dim i As Integer = 0

For Each dr As DataRow In dt.Selec t("","日期")

output.show(i & ": 日期1: " & dr("日期") & " 日期2: " & r("日期"))

If i = 0 Then

dr("上日余额") = r("本日余额")

dr("本日余额") = r("本日余额")+dr("本日增加")-dr("本日减少")

Else

dr("上日余额") = dt.Selec t("","日期")(i-1)("本日余额")

dr("本日余额") = dt.Selec t("","日期")(i-1)("本日余额")+dr("本日增加")-dr("本日减少")

End If

i +=1

dt.save

[此贴子已经被作者于2019/9/20 17:32:38编辑过]

主题：参考高效流水账