- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]Excel报表中，如果有两个分组：小计、合计，合计=小计的总和，要怎样实现？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179935)
-- 发布时间：2022/9/19 11:11:00
-- [求助]Excel报表中，如果有两个分组：小计、合计，合计=小计的总和，要怎样实现？
此主题相关图片如下：报表事件.png
求助：合计显示的是最后一个小计的数据。要怎么实现小计的汇总呢？
[此贴子已经被作者于2022/9/19 11:15:02编辑过]
-- 发布时间：2022/9/19 11:15:00
--
请提供实例测试
-- 发布时间：2022/9/19 11:16:00
--
要怎么提供给您？
-- 发布时间：2022/9/19 11:17:00
--
新增项目，导入这个表和部分测试数据，然后把这个项目文件和模板文件一起发上来
-- 发布时间：2022/9/19 11:40:00
--
项目文件
-- 发布时间：2022/9/19 11:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:采购通知单.xls |
-- 发布时间：2022/9/19 12:03:00
--
项目文件呢？
-- 发布时间：2022/9/19 12:24:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:采购通知单-项目文件.rar |
-- 发布时间：2022/9/19 13:39:00
--
BuildGroupFooter事件
Select Case e.Book.TempLate
Case "采购通知单"
Dim Sum1, Sum2 As Double
For Each dr As DataRow In e.GroupRows
If dr("库存数材料KG") > 0 Then
Sum1 = dr("库存数材料KG")
End If
Sum2 = Sum2 + dr("库存数材料KG")
Next
e.Book.Marks("小计") = Sum1
e.Book.Marks("合计") = Sum2
End Select
-- 发布时间：2022/9/19 13:52:00
--
按您的方式更改了，但数据还是有问题。
此主题相关图片如下：结果显示.jpg