筛选打印 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:工资管理.foxdb

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

请问怎么修改？请指教，谢谢！！

有统计表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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:工资管理.zip

我把“统计表1”改成"工资分类汇总—table”后，问题就解决了，

顺便请教一下：我想把从左边目录树中选择的“年度”和“月份”能打印在表格的顶部，请问EXCEL报表模板怎么修改？

请指教，谢谢！

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

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

主题：筛选打印