以文本方式查看主题

-  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)

--  作者:tusanmuli123
--  发布时间:2022/9/19 11:11:00
--  [求助]Excel报表中,如果有两个分组:小计、合计,合计=小计的总和,要怎样实现?

图片点击可在新窗口打开查看此主题相关图片如下:报表事件.png
图片点击可在新窗口打开查看

求助:合计显示的是最后一个小计的数据。要怎么实现小计的汇总呢?
[此贴子已经被作者于2022/9/19 11:15:02编辑过]

--  作者:有点蓝
--  发布时间:2022/9/19 11:15:00
--  
请提供实例测试
--  作者:tusanmuli123
--  发布时间:2022/9/19 11:16:00
--  
要怎么提供给您?
--  作者:有点蓝
--  发布时间:2022/9/19 11:17:00
--  
新增项目,导入这个表和部分测试数据,然后把这个项目文件和模板文件一起发上来
--  作者:tusanmuli123
--  发布时间:2022/9/19 11:40:00
--  
项目文件
--  作者:tusanmuli123
--  发布时间:2022/9/19 11:41:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:采购通知单.xls


--  作者:有点蓝
--  发布时间:2022/9/19 12:03:00
--  
项目文件呢?
--  作者:tusanmuli123
--  发布时间: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

--  作者:tusanmuli123
--  发布时间:2022/9/19 13:52:00
--  
按您的方式更改了,但数据还是有问题。
图片点击可在新窗口打开查看此主题相关图片如下:结果显示.jpg
图片点击可在新窗口打开查看