代码: Dim ex As New Exporter
Dim fpath = projectpath & "Report\temp"
ex.SourceTableName = "汇总表" '指定导出表
ex.FilePath = fpath '指定目标文件路径
ex.Format = "dbase" '导出格式为dBASE
ex.NewTableName = "LS01零售直销单" '指定文件名,注意无须扩展名
If FileSys.FileExists(fpath & "\LS01零售直销单.dbf") Then '如果指定的文件存在
FileSys.DeleteFile(fpath & "\LS01零售直销单.dbf",2,2) '则彻底删除之
End If
ex.Export() '开始导出
-----------------------------------------------------------------
按说,导出的文件名应该是:LS01零售直销单.dbf
但是实际上是:LS01零售直销.dbf,
少了一个“单”字。
怎么回事?
在开发的电脑上执行正常,发布后就出现这个问题。有人能给解决一下吗
[此贴子已经被作者于2016/2/19 9:34:36编辑过]