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


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

主题:筛选打印

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


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

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/21 22:24:00 [显示全部帖子]

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

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

 回到顶部