Foxtable(狐表) → 用户栏目 → 专家坐堂 → [速求] 自动按部门分组并分页打印工资单代码


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

主题：[速求] 自动按部门分组并分页打印工资单代码
帅哥哟，离线，有人找我吗？
舜风
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 小学文化
等级：小狐 帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00 		[速求] 自动按部门分组并分页打印工资单代码  发帖心情 Post By：2009/2/17 13:37:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：工资.jpg
图片点击可在新窗口打开查看

 
[速求] 自动按部门分组并分页打印工资单代码  

图片点击可在新窗口打开查看  最好能回案例  谢谢！


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:工资打印.rar

[此贴子已经被作者于2009-2-17 13:38:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
舜风
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 小学文化
等级：小狐 帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00 		  发帖心情 Post By：2009/2/17 14:20:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-2-17 14:00:00的发言：
之前有人的问题和你一模一样。
不想编码的话，就单独建立一个部门表，用打印关联表的形式实现：


他爸：这些帖，我当时便仔细分析过

可本人感觉不认同：

1、单位结构完全不同：如我们单位的下属子单位有N多，并非简单的只有一个总部（或公司）

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

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

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

[此贴子已经被作者于2009-2-17 14:30:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
舜风
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 小学文化
等级：小狐 帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00 		  发帖心情 Post By：2009/2/17 14:45:00 [显示全部帖子]

不行呀，能否帮做下案例文件呢

如下设置

图片点击可在新窗口打开查看此主题相关图片如下：图片.jpg.jpg
图片点击可在新窗口打开查看


结果如下


图片点击可在新窗口打开查看此主题相关图片如下：图片.jpg.jpg.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
舜风
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 小学文化
等级：小狐 帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00 		  发帖心情 Post By：2009/2/17 14:47:00 [显示全部帖子]

不好意思。问题已解决了图片点击可在新窗口打开查看

已分页，只是没有看到换页符号，以为没有成功

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


加好友 发短信 小学文化
等级：小狐 帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00 		  发帖心情 Post By：2009/2/18 9:40:00 [显示全部帖子]

现虽然能简单打印表，不过我却为此要建N多的关联，且也很麻烦呵

所以还是想请：谁能帮我用

Dim Arys As List(Of String())
Arys = DataTables("工资").GetUniqueValues("", "所在单位","所在部门")
For Each Ary As String() In Arys
               ……
的方式做一按钮代码？

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


加好友 发短信 小学文化
等级：小狐 帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00 		  发帖心情 Post By：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)
编译报错:没有定义"-"
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 6 次数据查询