以文本方式查看主题

-  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 13:38:34编辑过]

--  作者:狐狸爸爸
--  发布时间: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
--  
以下是引用狐狸爸爸在2009-2-17 14:00:00的发言:
之前有人的问题和你一模一样。
不想编码的话,就单独建立一个部门表,用打印关联表的形式实现:


他爸:这些帖,我当时便仔细分析过

可本人感觉不认同:

1、单位结构完全不同:如我们单位的下属子单位有N多,并非简单的只有一个总部(或公司)

2、如果简单的先筛选单位,再按部门自动筛选而不分页,整工资表将会非常的复杂而杂乱(因有些部门人数太少)

3、如果分别按部门筛选并打印,如我们有几十个部门,得需多久才能打印完工呢?

所以请大家另想一办法帮我解决此难题:
如果只点一下按钮便能全部依照部门 分组、分页打印(或先单位筛选后再点按钮能依照 部门分组、分页打印)

[此贴子已经被作者于2009-2-17 14:30:55编辑过]

--  作者:狐狸爸爸
--  发布时间: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-2-18 9:54:01编辑过]

--  作者:舜风
--  发布时间:2009/3/13 13:44:00
--  
以下是引用狐狸爸爸在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-2-18 9:54:01编辑过]

他爸的代码有问题吧:
首先:           .Select(0,0,.Rows-1,.Cols-1)
编译报错:没有定义"-"