[已解决]数据不能汇总，求解决方法

wzd28

，在“2020年2月月度采购计划汇总表”点击“各部门汇总数据”按钮后，表格“部门使用计划表（后勤组）”的“月申请采购量合计”合计数量是1644.1，在“2020年2月月度采购计划汇总表”的“后勤组”合计数量是1484.1，数量不一致，应该是有部分物品没有汇总到汇总表里面，不知道哪里出错，求各位老师帮忙看看，谢谢！
   新建文件夹.rar (152.07 KB, 下载次数: 4)

2022-1-24 20:24 上传

点击文件名下载附件

      

最佳答案

月排行榜 / 总排行榜

砂海

2022-1-24 22:40

            If xD.exists(T) Then
                m = xD(T): Brr(m, DP) = Brr(m, DP) + Arr(i, 10): Brr(m, 15) = Brr(m, 15) + Arr(i, 10)

===================================
你代码 的缩进 太别扭了.
DP 值 有缺陷 , 假设 出现了 表名 不对 , 会继续 用 上次 的DP 值

新建文件夹(Re).rar (151.63 KB, 下载次数: 4)

2022-1-24 22:40 上传

点击文件名下载附件

跳转到最佳答案楼层

砂海

            If xD.exists(T) Then
                m = xD(T): Brr(m, DP) = Brr(m, DP) + Arr(i, 10): Brr(m, 15) = Brr(m, 15) + Arr(i, 10)

===================================
你代码 的缩进 太别扭了.
DP 值 有缺陷 , 假设 出现了 表名 不对 , 会继续 用 上次 的DP 值

新建文件夹(Re).rar (151.63 KB, 下载次数: 4)

2022-1-24 22:40 上传

点击文件名下载附件

wzd28

砂海 发表于 2022-1-24 22:40
If xD.exists(T) Then
                m = xD(T): Brr(m, DP) = Brr(m, DP) + Arr(i, 10): B ...

感谢老师热心的帮助！问题解决了。