未测试,不知道行不行:
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")