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

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

 这样看看吧。自己先修改对应的位置。

Dim c1 As Boolean = e.Form.Controls("xxxxxxxx").Checked
Dim c2 As Boolean = e.Form.Controls("xxxxxxxx").Checked
Dim c3 As Boolean = e.Form.Controls("xxxxxxxx").Checked

Dim filter As String = "1=1 "
If c1 Then filter &= " And [商城] = 'al'"
If c2 Then filter &= " And [商城] = 'apm'"
If c3 Then filter &= " And [商城] = 'uus'"

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