Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选打印


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

主题：筛选打印
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		筛选打印  发帖心情 Post By：2020/6/19 17:28:00 [只看该作者]

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

我想在打开“工资分类汇总”窗体后，选择左边的目录树，然后点击“打印”就能按照所选择的时段打印相应的内容，目前存在两个问题：1、显示“统计表1”不存在；2、只能打印出所有数据，不能按照目录树筛选打印

请问怎么修改？请指教，谢谢！！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111374 积分：566934 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/19 17:40:00 [只看该作者]

有统计表1.xls这个文件吗，发上来看看。

另外打印按钮去掉下面代码：
Dim tr As WinForm.TreeView = Forms("工资分类汇总").Controls("TreeView1")
tr.BuildTree("工资分类汇总_Table","年|月|性质")
tr.Nodes.Insert("所有时段",0)
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing Then
    Dim pth() As String = nd.FullPath.Split("\")
    Dim Filter As String
    Select Case nd.Level
        Case 1
            Filter = "年 = '" & pth(0) & "'and 月 = '" & pth(1) & "'"
    End Select
    Tables("工资分类汇总_Table").Filter = Filter
End If
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2020/6/21 21:58:00 [只看该作者]

打印按钮的代码已去掉，统计表1是在打开“工资分类汇总”窗体后，在afterload事件中用统计代码生成的，怎么会显示没“统计表1”呢？请指教谢谢！

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


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2020/6/21 21:59:00 [只看该作者]

打印按钮的代码已去掉，统计表1是在打开“工资分类汇总”窗体后，在afterload事件中用统计代码生成的，怎么会显示没“统计表1”呢？请指教谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:工资管理.zip

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


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2020/6/21 22:18:00 [只看该作者]

我把“统计表1”改成"工资分类汇总—table”后，问题就解决了，
顺便请教一下：我想把从左边目录树中选择的“年度”和“月份”能打印在表格的顶部，请问EXCEL报表模板怎么修改？
请指教，谢谢！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111374 积分：566934 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/21 22:24:00 [只看该作者]

直接给单元格赋值即可，如

Sheet(3,9).Value = "某年某月"
Book.Build() '生成报表
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 6 次数据查询