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


  共有157人关注过本帖树形打印复制链接

主题：统计报表
帅哥哟，离线，有人找我吗？
g1j2h3
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：276 积分：3576 威望：0 精华：0 注册：2016/4/30 10:41:00 		统计报表  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/4/12 9:55:00 [只看该作者]

模板发上来看看

 回到顶部
帅哥哟，离线，有人找我吗？
g1j2h3
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：276 积分：3576 威望：0 精华：0 注册：2016/4/30 10:41:00 		  发帖心情 Post By：2024/4/12 9:58:00 [只看该作者]

年接单数量表
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:年接单产品统计表.xls
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106207 积分：540158 威望：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 
Next 
book.AddDataTable("接单产品数量统计", dt) '添加临时表
Book.Build() 
Book.Save(fl)
……
 回到顶部
帅哥哟，离线，有人找我吗？
g1j2h3
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：276 积分：3576 威望：0 精华：0 注册：2016/4/30 10:41:00 		  发帖心情 Post By：2024/4/12 10:25:00 [只看该作者]

谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询