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