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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：如何将末级余额数汇总到上一级余额数

共有3188人关注过本帖树形打印复制链接主题：求助：如何将末级余额数汇总到上一级余额数

YUNSEL

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：206 积分：2656 威望：0 精华：0 注册：2016/11/9 19:13:00

求助：如何将末级余额数汇总到上一级余额数 发帖心情

Post By：2020/6/12 10:20:00 [只看该作者]

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

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编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/12 10:35:00 [只看该作者]

dr("余额数") = tables(e.Form.Name & "_Table1").Compute("Sum(余额数)", "科目编码 like '" & dr("科目编码") & ".%'")

For i as integer = Tables(e.Form.Name & "_Table1").Rows.count - 1 to 0 step -1

dim dr as row = Tables(e.Form.Name & "_Table1").Rows(i)

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

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

end if

YUNSEL

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：206 积分：2656 威望：0 精华：0 注册：2016/11/9 19:13:00

Post By：2020/6/12 10:37:00 [只看该作者]

太感谢了

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