主题：导出表时筛选

未测试，不知道行不行：

 

Dim ex As New Exporter
ex.SourceTableName = "表一"
ex.FilePath =ProjectPath & "aaa.mdb"
ex.Filter = "_Identify >= " & CurrentTable.Current("_Identify") & And "标记列 = false"
If FileSys.FileExists(ex.FilePath) Then '如果目标文件已经存在
    FileSys.DeleteFile(ex.FilePath) '则删除之
End If
ex.Export()
DataTables(CurrentTable.name).ReplaceFor("标记列",True,"标记列 = false")

我以为一楼只是标注颜色的部分才出错！