求助：如何将末级余额数汇总到上一级余额数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如下图，希望写个循环代码把末级余额数汇总到上一级余额数，下图中红色部分要求是自动汇总计算的。

For Each r1 As Row In Tables(e.Form.Name & "_Table1").Rows

if dr("余额数") = nothing then

dr("余额数") = tables(e.Form.Name & "_Table1").Compute("Sum(余额数)", "科目编码 like '" & dr("余额数") & "%'") '这里的条件是左包含是所有的下阶的，要怎么做到只包含下一级的汇总？

end if

此主题相关图片如下：abcde.png

追加问题：还有就是如何处理从最下级到上级的循环运算，就比如上图中在算5001时，可能5001.02还没计算，此时计算的结果就是200，当算到5001.02层为400的时候，5001层则要自动加上这400.

[此贴子已经被作者于2020/6/12 10:26:04编辑过]

主题：求助：如何将末级余额数汇总到上一级余额数