- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- EXCLE根据加载树列表打印 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157961)
-- 发布时间：2020/11/3 17:19:00
-- EXCLE根据加载树列表打印
想依次根据加载树生成EXCEL打印，每个加载树生成一个sheet
-- 发布时间：2020/11/3 17:27:00
--
请上传实例说明
-- 发布时间：2020/11/4 9:13:00
--
-- 发布时间：2020/11/4 9:16:00
--
需要根据左边的加载树，然后通过打印模板依次生成报表，一条加载生成一张表
-- 发布时间：2020/11/4 9:34:00
--
步骤
1、获取所有的部门，可以使用getvalues
2、遍历所有部门，给table根据部门做筛选
3、根据筛选结果生成报表：http://www.foxtable.com/webhelp/topics/1145.htm
如果不会就上传实例
-- 发布时间：2020/11/4 9:38:00
--
这样写不对
以下内容为程序代码:
1
2 Dim Book As New XLS.Book(ProjectPath & "Attachments\\考勤统计.xls") \'打开模板
3 Dim fl As String = ProjectPath & "Reports\\考勤统计.xls"
4 Dim Sheet As XLS.Sheet = Book.Sheets(0)
5
6 Dim Products As List(Of String)
7 Products = DataTables("考勤明细松江").SQLGetValues("部门","日期=\'2020-11-02\'")
8 For Each Product As String In Products
9
10
11 Sheet(5,11).Value = "＜部门 =\'"& Product &"\'＞" \'写入打印条件=\'"& Product & "\'
12 Book.Build() \'生成报表
13
14 Next
15
16 Book.Save(fl)
17 Dim Proc As New Process
18 Proc.File = fl
19 Proc.Start()
1
2 Dim Book As New XLS.Book(ProjectPath & "Attachments\\考勤统计.xls") \'打开模板
3 Dim fl As String = ProjectPath & "Reports\\考勤统计.xls"
4 Dim Sheet As XLS.Sheet = Book.Sheets(0)
5
6 Dim Products As List(Of String)
7 Products = DataTables("考勤明细松江").SQLGetValues("部门","日期=\'2020-11-02\'")
8 For Each Product As String In Products
9
10
11 Sheet(5,11).Value = "＜部门 =\'"& Product &"\'＞" \'写入打印条件=\'"& Product & "\'
12 Book.Build() \'生成报表
13
14 Next
15
16 Book.Save(fl)
17 Dim Proc As New Process
18 Proc.File = fl
19 Proc.Start()
-- 发布时间：2020/11/4 9:43:00
--
重新把代码发上来，直接发，不要加什么行号，不好改
-- 发布时间：2020/11/4 9:46:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\考勤统计.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\考勤统计.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Products As List(Of String)
Products = DataTables("考勤明细松江").SQLGetValues("部门","日期=\'2020-11-02\'")
For Each Product As String In Products
Sheet(5,11).Value = "<部门 =\'"& Product &"\'>" \'写入打印条件=\'"& Product & "\'
Book.Build() \'生成报表
Next
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
-- 发布时间：2020/11/4 9:50:00
--
Dim Products As List(Of String)
Products = DataTables("考勤明细松江").SQLGetValues("部门","日期=\'2020-11-02\'")
For Each Product As String In Products
Dim Book As New XLS.Book(ProjectPath & "Attachments\\考勤统计.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\考勤统计_" & Product & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(5,11).Value = "<部门 =\'" & Product & "\'>" \'写入打印条件=\'"& Product & "\'
Book.Build() \'生成报表
Book.Save(fl)
\'Dim Proc As New Process
\'Proc.File = fl
\'Proc.Start()
Next
-- 发布时间：2020/11/4 10:01:00
--
这样不是生成了N个BOOK吗，我想要一个BOOK里面很多sheet