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


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

主题:筛选打印

帅哥哟,离线,有人找我吗?
rgbjwjb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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

请问怎么修改?请指教,谢谢!!


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105483 积分:536406 威望: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


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

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

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


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

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


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


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

我把“统计表1”改成"工资分类汇总—table”后,问题就解决了,
顺便请教一下:我想把从左边目录树中选择的“年度”和“月份”能打印在表格的顶部,请问EXCEL报表模板怎么修改?
请指教,谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

Sheet(3,9).Value = "某年某月"
Book.Build() 
'生成报表

 回到顶部