- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 统计报表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=191346)
-- 发布时间：2024/4/12 9:54:00
-- 统计报表
接单日期是从四月开始，前三个月没有数据，统计表显示也是四月的日期和数量，我想把统计表对应的数据填入到了报表模板中，如何修改代码
此主题相关图片如下：表1.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.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编辑过]
-- 发布时间：2024/4/12 9:55:00
--
模板发上来看看
-- 发布时间：2024/4/12 9:58:00
--
年接单数量表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:年接单产品统计表.xls |
-- 发布时间：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
Next
book.AddDataTable("接单产品数量统计", dt) \'添加临时表
Book.Build()
Book.Save(fl)
……
-- 发布时间：2024/4/12 10:25:00
--
谢谢