主题：勾选问题？求助？

 全部勾选：

SystemReady = False
e.Form.Controls("CheckBox2").Checked = False
DataTables("市场跟踪表").ReplaceFor("导出", True, Tables("市场跟踪表").Filter)
SystemReady = True

 全部不选：

SystemReady = False
e.Form.Controls("CheckBox1").Checked = False
DataTables("市场跟踪表").ReplaceFor("导出", False, Tables("市场跟踪表").Filter)
SystemReady = True