分组统计报表-多组如何生成 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分组统计报表-多组如何生成

共有3908人关注过本帖树形打印复制链接主题：分组统计报表-多组如何生成

lxhmax

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

等级：三尾狐帖子：636 积分：5699 威望：0 精华：0 注册：2012/8/2 19:04:00

分组统计报表-多组如何生成 发帖心情

Post By：2022/1/12 3:24:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:生成订单.xlsx

下载信息 [文件大小：下载次数： ]
点击浏览该文件:模板.xlsx

下载信息 [文件大小：下载次数： ]
点击浏览该文件:原始数据.xls

请问下老师,如何生成右表这样的统计表?

此主题相关图片如下：微信截图_20220112032326.png

[此贴子已经被作者于2022/1/12 3:26:57编辑过]

lxhmax

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

等级：三尾狐帖子：636 积分：5699 威望：0 精华：0 注册：2012/8/2 19:04:00

Post By：2022/1/24 18:49:00 [显示全部帖子]

Dim zj As Double = Tables("对账单明细").Compute("Sum(小计)")

Dim Book As New XLS.Book("D:\模板.xlsx")

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Book.Marks.Add("总金额",CUMoney(zj))

Book.Marks.Add("委托单位1","To:" & r("委托单位"))

Book.Marks.Add("委托单位2",r("委托单位"))

Book.Marks.Add("标题",Format(r("委托日期"),"MMM") & "对账单") '十二月

Book.Build() '生成细节区

Book.Save("D:\生成对账单.xlsx")'保存工作簿

老师,为什么我用这个方式生成excel报表的时候会不稳定,有时候生成的报表单元格全部被拆分掉了,就是那些合并的单元格没了

此主题相关图片如下：微信图片编辑_20220124184836.jpg

主题：分组统计报表-多组如何生成