EXCLE根据加载树列表打印 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4132人关注过本帖树形打印复制链接主题：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

zwbwuliao

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

加好友

发短信

等级：婴狐帖子：21 积分：389 威望：0 精华：0 注册：2018/11/1 11:15:00

Post By：2020/11/4 9:13:00 [显示全部帖子]

zwbwuliao

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

加好友

发短信

等级：婴狐帖子：21 积分：389 威望：0 精华：0 注册：2018/11/1 11:15:00

Post By：2020/11/4 9:16:00 [显示全部帖子]

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

zwbwuliao

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()