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