以下是我自己的按钮代码：Dim Filter As String
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
Filter = "归属年度 = '" & .Value & "'"
End If
End With
With e.Form.Controls("ComboBox2")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "归属时期 = '" & .Value & "'"
End If
End With
If Filter > "" Then
Tables("认证信息").Filter = Filter
End If
Dim Book As New XLS.Book(ProjectPath & "attachments\生存认证表.xls")
Book.Build()
Book.Save(ProjectPath & "Reports\生存认证表.xls")
Dim Proc As New Process
Proc.File = ProjectPath & "reports\生存认证表.xls"
Proc.Start()
Tables("认证信息").Filter = ""
问题：在{认证信息}表下执行代码没有问题，但在其它表下执行该代码就报错。
此主题相关图片如下：捕获.png
需求：如何修改才能使其在任意表下执行都正常。
加好友 
发短信
Post By：2019/9/15 21:51:00 [显示全部帖子]
Post By：2019/9/16 15:10:00 [显示全部帖子]
