共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：统计报表
1楼
g1j2h3 发表于：2024/4/12 9:54:00接单日期是从四月开始，前三个月没有数据，统计表显示也是四月的日期和数量，我想把统计表对应的数据填入到了报表模板中，如何修改代码
此主题相关图片如下：表1.png
此主题相关图片如下：表1.pngDim 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.HorizontalTotal = True
book.AddDataTable("接单产品数量统计", b.Build(True)) '添加临时表
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
红圈中的数据5应该是四月份的
[此贴子已经被作者于2024/4/12 9:55:36编辑过]
2楼
有点蓝 发表于：2024/4/12 9:55:00模板发上来看看
3楼
g1j2h3 发表于：2024/4/12 9:58:00年接单数量表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:年接单产品统计表.xls |
4楼
有点蓝 发表于：2024/4/12 10:17:00把1~12月下面的内容清掉，
此主题相关图片如下：1.png
此主题相关图片如下：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
Next
book.AddDataTable("接单产品数量统计", dt) '添加临时表
Book.Build()
Book.Save(fl)
……
5楼
g1j2h3 发表于：2024/4/12 10:25:00谢谢
共5 条记录, 每页显示 10 条, 页签:
[1]