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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计报表

共有1525人关注过本帖树形打印复制链接主题：统计报表

有点蓝

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

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

Post By：2024/4/12 9:55:00 [显示全部帖子]

模板发上来看看

有点蓝

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

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

Post By：2024/4/12 10:17:00 [显示全部帖子]

把1~12月下面的内容清掉，

此主题相关图片如下：1.png

然后通过代码生成

……

b.Totals.AddDef("销售数量", "销售数量")

b.HorizontalTotal = True

Dim dt As DataTable = b.Build(True)

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

For Each dc As DataCol In dt.DataCols

If dc.Caption Like "*月" Then

Dim i As Integer = Val(dc.Caption)

Sheet(4, 3 + i).Value = "[" & dc.Name & "]"

End If

book.AddDataTable("接单产品数量统计", dt) '添加临时表

Book.Build()

Book.Save(fl)

……

主题：统计报表