Dim ex As New Exporterex.SourceTableName = "订单处理" ex.FilePath = "\\Trj-server\hanmei\取货\dd.mdb"
If FileSys.FileExists(ex.FilePath) Then'如果目标文件已经存在 FileSys.DeleteFile(ex.FilePath) '则删除之End Ifex.Export()
在这段代码中 增加一个条件
生成dd。mdb的同时 删除有重复的 “取货商品名列”名字的行(同一个文件里“取货商品名列”不可以同时有两个一样的值,如果有删除一样的值,只保留一个。)