高效流水账现金日记录入账页面实现后怎么实现收入和支出自动计算余额呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

后台页面计算htm

这样写貌似不对提示错误

Dim dr As DataRow

Dim drs As List(of DataRow)

dr = DataTable("现金日记账").Find("[_SortKey] < " & dr("_SortKey"), "[_SortKey] Desc") '找出上一行

If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行

dr("余额") = dr("收入") - dr("支出")

dr = dr

End If

drs = DataTable("现金日记账".Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")

For i As Integer = 1 To drs.Count - 1 '重算余下行的余额

drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")

有点蓝老师是否可以指导一下呢谢谢！

主题：高效流水账 现金日记录入账 页面实现后 怎么实现收入和支出 自动计算余额呢？