主题：[求助]求解数据筛选，报表打印代码？

Dim nd As String = e.Form.Controls("ComboBox1").Text
Dim sd As String = e.Form.Controls("ComboBox2").Text
Dim str As String = ""
str &= DataTables("生存认证资料").GetComboListString("公民身份号码", "认证年度 = '" & nd & "' Or 认证时段 = '" & sd & "'").replace("|", "','")
Tables("退休生存人员").filter = "公民身份号码 in ('" & str.trim(",") & "')"
'==========================以上是筛选已经认证的人员==============================
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 = ""
e.Form.Close