Foxtable(狐表) → 用户栏目 → 专家坐堂 → EXCLE根据加载树列表打印


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

主题：EXCLE根据加载树列表打印
帅哥哟，离线，有人找我吗？
zwbwuliao
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：389 威望：0 精华：0 注册：2018/11/1 11:15:00 		EXCLE根据加载树列表打印  发帖心情 Post By：2020/11/3 17:19:00 [只看该作者]

想依次根据加载树生成EXCEL打印，每个加载树生成一个sheet

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


加好友 发短信
等级：超级版主 帖子：111455 积分：567357 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/3 17:27:00 [只看该作者]

请上传实例说明

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


加好友 发短信
等级：婴狐 帖子：21 积分：389 威望：0 精华：0 注册：2018/11/1 11:15:00 		  发帖心情 Post By：2020/11/4 9:13:00 [只看该作者]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看

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


加好友 发短信
等级：婴狐 帖子：21 积分：389 威望：0 精华：0 注册：2018/11/1 11:15:00 		  发帖心情 Post By：2020/11/4 9:16:00 [只看该作者]

需要根据左边的加载树，然后通过打印模板依次生成报表，一条加载生成一张表

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


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

步骤
1、获取所有的部门，可以使用getvalues
2、遍历所有部门，给table根据部门做筛选
3、根据筛选结果生成报表：http://www.foxtable.com/webhelp/topics/1145.htm

如果不会就上传实例
 回到顶部
帅哥哟，离线，有人找我吗？
zwbwuliao
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：389 威望：0 精华：0 注册：2018/11/1 11:15:00 		  发帖心情 Post By：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()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

重新把代码发上来，直接发，不要加什么行号，不好改

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


加好友 发短信
等级：婴狐 帖子：21 积分：389 威望：0 精华：0 注册：2018/11/1 11:15:00 		  发帖心情 Post By：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()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111455 积分：567357 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
zwbwuliao
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：389 威望：0 精华：0 注册：2018/11/1 11:15:00 		  发帖心情 Post By：2020/11/4 10:01:00 [只看该作者]

这样不是生成了N个BOOK吗，我想要一个BOOK里面很多sheet

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