主题：这个代码应该怎么写呢？

Dim ex As New Exporter
ex.SourceTableName = "quhuojilu"
ex.FilePath = "\\PC-server\取货\gd.mdb"
ex.Filter = "[状态] < 5"
If FileSys.FileExists(ex.FilePath) Then'如果目标文件已经存在
   FileSys.DeleteFile(ex.FilePath) '则删除之
End If

 

 

想在上面的代码基础上添加一个条件

 

如果checkbox被选定 则自动增加被筛选的 checkbox 为筛选条件

 

如图 如果al 和 apm 被选中 则在上面的代码里自动添加 ex.filter ="[商城] = al" and ex.fitler ="[商城] = apm"

 

（最终的筛选结果是："[状态] < 5" and ex.filter ="[商城] = al" and ex.fitler ="[商城] = apm"  ）

此主题相关图片如下：??.png