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

在窗口中形成多表头的统计表，想按excel模板格式导出，该如何写代码，数据应该是全年的，图例只是部分的

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

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

[此贴子已经被作者于2024/4/13 17:25:13编辑过]

麻烦老师看下代码错在哪里，一直试，没反应啊，发货数量和未发货数量就是填不上数据

Dim Book As New XLS.Book(ProjectPath & "Attachments\年接单发货统计表.xls")

Dim fl As String = ProjectPath & "Reports\年接单发货统计表.xls"

Dim b As New SQLCrossTableBuilder("接单发货数量统计", "销售接单")

b.C

b.HGroups.AddDef("产品名称") '添加客户列用于水平分组

b.HGroups.AddDef("规格型号") '添加客户列用于水平分组

'b.VGroups.AddDef("接单日期", DateGroupEnum.Year, "{0}年") '添加日期列用于垂直分组,按年分组

b.VGroups.AddDef("接单日期", "{0}月") '添加日期列用于垂直分组,按月分组

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

b.Totals.AddDef("已发货数量", "发货数量")

'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(5, 9 + i).Value = "[" & dc.Name & "]"

End If

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

Book.Build()

Book.Save(fl)

Dim Proc As New Process

Proc.File = fl

Proc.Start()

[此贴子已经被作者于2024/4/14 22:58:25编辑过]

大师，按照上面的代码生成的报表，合计位置不对

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

按照下边的代码生成的报表，合计部分的数据自动填到了前面的三列，麻烦老师看下代码错在哪里

Dim Book As New XLS.Book(ProjectPath & "Attachments\年接单发货统计表.xls")

Dim fl As String = ProjectPath & "Reports\年接单发货统计表.xls"

Dim b As New SQLCrossTableBuilder("接单发货数量统计", "接单登记")

b.C

b.AddTable("接单登记", "接单单号", "接单明细", "接单单号")

b.HGroups.AddDef("产品名称") '添加客户列用于水平分组

b.HGroups.AddDef("规格型号") '添加客户列用于水平分组

'b.VGroups.AddDef("接单日期", DateGroupEnum.Year, "{0}年") '添加日期列用于垂直分组,按年分组

b.VGroups.AddDef("接单日期", "{0}月") '添加日期列用于垂直分组,按月分组

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

b.Totals.AddExp("已发货数量", "发货数量")

b.Totals.AddExp("未发货数量", "销售数量 - 发货数量", "未发货数量")

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) - 1) * 3 + 3

If dc.Caption Like "*销售数量" Then

Sheet(5, i + 1).Value = "[" & dc.Name & "]"

ElseIf dc.Caption Like "*未发货数量" Then

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

ElseIf dc.Caption Like "*已发货数量" Then

Sheet(5, i + 2).Value = "[" & dc.Name & "]"

End If

' End If

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

Book.Build()

Book.Save(fl)

Dim Proc As New Process

Proc.File = fl

Proc.Start()

生成的报表

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

报表模板

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

下图是生成的临时表，看似没问题

此主题相关图片如下：生成的临时表.png

此主题相关图片如下：临时表表结构.png

终于解决了，谢谢老师的指点

主题：多层表头导出为模板