[求助] 项目自动生成报表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 项目自动生成报表

共有1714人关注过本帖树形打印复制链接主题：[求助] 项目自动生成报表

wumingrong1

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

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

[求助] 项目自动生成报表 发帖心情

Post By：2018/5/5 17:27:00 [只看该作者]

根据项目目录下的 Attachments 中【站段清单表】和【站段汇总表】的格式；自动生成以下两类报表

1、【清单表】自动按照【站段名称】列中的每个站段输出独立的EXL文件清单表、文件名称按照【站段名称】进行命名

2、【清单表】自动按照【站段名称】根据【申请月份】的【物品金额】进行统计，生成每个站段每个月份的【物品金额】汇总表

图片点击可在新窗口打开查看此主题相关图片如下：360截图20180505172417701.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

[此贴子已经被作者于2018/5/5 17:32:10编辑过]

有点蓝

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

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

Post By：2018/5/5 17:49:00 [只看该作者]

1、2个表比较建立关联，然后使用代码输出

For i As Integer = 0 To Tables("站段归属表").Rows.count - 1

Tables("站段归属表").Position = i

Dim r As Row = Tables("站段归属表").Rows(i)

Dim Book As New XLS.Book(ProjectPath & "Attachments\站段汇总表.xls") '打开模板

Dim fl As String = ProjectPath & "Reports\" & r("站段名称") & ".xls"

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

Book.Build() '生成报表

Book.Save(fl)

2、根据月份先生成统计表，然后通过统计表进行分组输出：http://www.foxtable.com/webhelp/scr/1542.htm

主题：[求助] 项目自动生成报表