- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 有办法有代码设置报表打印次序吗？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70453)
-- 发布时间：2015/6/22 14:28:00
-- 有办法有代码设置报表打印次序吗？
请问老师：
假设我有如下两张表
表a
次序 部门
1 劳保部
2 人事部
3 保卫部
表b
姓名 工号 部门
张三 1001 劳保部
……
王五 1023 劳保部
李四 2001 人事部
……
赵六 2045 人事部
钱八 3001 保卫部
……
杜十 3034 保卫部
我要对表b打印excel报表，内容是职工名单
现在希望能用代码设置，根据表a的次序，一个部门的职工名单报表生成一个文档，并输出为pdf格式保存
只用一键，代码自动就按照表a的次序，将各部门的职工名单报表生成并保存在指定文件夹（或狐表的输出文件夹里）
不知道这个设想，有可能实现吗？
求老师指点，十分感谢！
-- 发布时间：2015/6/22 14:41:00
--
关联打印，不需要写代码：
此主题相关图片如下：预览.png
此主题相关图片如下：设计.png
-- 发布时间：2015/6/22 14:54:00
--
可以 用循环
Dim V1 As List(Of String)=DataTables("部门表").GetUniqueValues("","部门")
For Each sjbm As String In V1
Tables("职工名单表").Filter="部门 =\'" &sjbm &"\'"
.
.
.
.
.
next
-- 发布时间：2015/6/22 18:00:00
--
请问：这个是专业报表吗？我在帮助文档中没有找到，能提供地址吗谢谢～！
-- 发布时间：2015/6/22 22:03:00
--
表B增加一个辅助列，根据部门填入序号，最后排序一下
-- 发布时间：2015/6/23 1:29:00
--
谢谢您！但感觉还是不太懂，能请您提供下帮助文档的位置，或者详细教我一下吗？非常感谢您！
-- 发布时间：2015/6/23 1:32:00
--
试用了一下，可以按表Ｂ分开在一个报表里。但我如何按表ｂ分开在多个报表中呢？求您指点！
此外，如果我要对报表设置分页符，且对表ａ的数据进行筛选后生成报表，应该怎么解决呢？
-- 发布时间：2015/6/23 2:11:00
--
1分页符可以在报表模版中设置;
2表a筛选生成报表 用filter
-- 发布时间：2015/6/23 11:56:00
--
1、表A表B建立关联；
2、在表B引用表A的次序列；
3、根据表B设置报表，excel报表那里设置排序
http://www.foxtable.com/help/topics/1805.htm
http://www.foxtable.com/help/topics/1397.htm