大概就是这样:
Dim Filter As string
'前面的合成代码
If e.Form.Controls(“是否结束控件的名称").Checked then
Filter = Filter & " And 结束 = True"Elsel
Filter = Filter & " And 结束 = False"
End if
'后面的筛选代码