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

Dim Book As New XLS.Book(ProjectPath & "Attachments\晨午检上报表.xlsx")
Dim fl As String = ProjectPath & "Reports\晨午检上报表.xlsx"
Dim s As String = ""
For Each r As Row In Tables("晨午检").GetCheckedRows
s =s & "," & r("_Identify")
Next
s = s.Trim(",")
Tables("晨午检").Filter = "[_Identify] in (" & s & ")"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Verb = "Print" '指定动作
Proc.Start()

勾选任意行打印没问题，但是在没有勾选行的前提下，显示错误：“语法错误: IN 关键字后面必须是由逗号分隔的非空表达式列表，并且必须用括号括起来。” 这个怎么修改呢？

主题：execel报表复选框问题