主题：导出表时筛选

想从选中行开始导出，如下代码，可总是出错     _identify换成_sortkey也不行，应该怎么做？

 

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

 

 

 

假如我想再加一个标记列，如果导出了，标记列就选中，下次就直接导出未标记的，怎么做？

 

谢谢各位大师

未测试，不知道行不行：

 

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")

不行啊，ex.Filter = "_Identify >= " & CurrentTable.Current("_Identify")这条本来就错误，加上后面的And ***也不对

 楼主这条代码不会报错吧？

 ex.Filter = "_Identify >= " & CurrentTable.Current("_Identify")

 这条代码要想达到的目的是什么？

 哦哦，是出错。要给[_Identify]加一个中括号。

 再有就是，应该用Tables("表一").Current("_Identify")

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