- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [速求] 自动按部门分组并分页打印工资单代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1844)
-- 发布时间：2009/2/17 13:37:00
-- [速求] 自动按部门分组并分页打印工资单代码
此主题相关图片如下：工资.jpg
[速求] 自动按部门分组并分页打印工资单代码
最好能回案例 谢谢！| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工资打印.rar |
-- 发布时间：2009/2/17 14:00:00
-- [原创]狐表的设计让我惊叹！
之前有人的问题和你一模一样。
不想编码的话，就单独建立一个部门表，用打印关联表的形式实现：
http://www.foxtable.com/dispbbs.asp?BoardID=2&ID=1738
http://www.foxtable.com/dispbbs.asp?BoardID=2&ID=1741&replyID=12372&skin=1
http://www.foxtable.com/dispbbs.asp?BoardID=2&ID=1748&replyID=&skin=1
-- 发布时间：2009/2/17 14:20:00
--
之前有人的问题和你一模一样。
不想编码的话，就单独建立一个部门表，用打印关联表的形式实现：
他爸：这些帖，我当时便仔细分析过
可本人感觉不认同：
1、单位结构完全不同：如我们单位的下属子单位有N多，并非简单的只有一个总部（或公司）
2、如果简单的先筛选单位，再按部门自动筛选而不分页，整工资表将会非常的复杂而杂乱（因有些部门人数太少）
3、如果分别按部门筛选并打印，如我们有几十个部门，得需多久才能打印完工呢？
所以请大家另想一办法帮我解决此难题:
如果只点一下按钮便能全部依照部门 分组、分页打印（或先单位筛选后再点按钮能依照 部门分组、分页打印）
-- 发布时间：2009/2/17 14:23:00
--
1、可以自动换页，只需将部门的细节区设置为每页一个即可。
2、一次即可打印完成，不存在要先筛选再打印的问题。
-- 发布时间：2009/2/17 14:45:00
--
不行呀，能否帮做下案例文件呢
如下设置
此主题相关图片如下：图片.jpg.jpg
结果如下
此主题相关图片如下：图片.jpg.jpg.jpg
-- 发布时间：2009/2/17 14:47:00
--
不好意思。问题已解决了
已分页，只是没有看到换页符号，以为没有成功
-- 发布时间：2009/2/18 9:40:00
--
现虽然能简单打印表，不过我却为此要建N多的关联，且也很麻烦呵
所以还是想请：谁能帮我用
Dim Arys As List(Of String())
Arys = DataTables("工资").GetUniqueValues("", "所在单位","所在部门")
For Each Ary As String() In Arys
……
的方式做一按钮代码？
-- 发布时间：2009/2/18 9:54:00
--
Dim Arys As List(Of String())
Arys = DataTables("工资").GetUniqueValues("", "所在单位","所在部门")
For Each Ary As String() In Arys
With Tables("工资")
.Filter = 条件
.Select(0,0,.Rows-1,.Cols-1)
\'打印excel报表的代码
End With
Next
Tables("工资") = ""
-- 发布时间：2009/3/13 13:44:00
--
Dim Arys As List(Of String())
Arys = DataTables("工资").GetUniqueValues("", "所在单位","所在部门")
For Each Ary As String() In Arys
With Tables("工资")
.Filter = 条件
.Select(0,0,.Rows-1,.Cols-1)
\'打印excel报表的代码
End With
Next
Tables("工资") = ""
他爸的代码有问题吧:
首先: .Select(0,0,.Rows-1,.Cols-1)
编译报错:没有定义"-"