Dim ex135 As New Exporter
ex135.SourceTableName = "C135" '指定导出表
ex135.FilePath = "c:\DATA\" '指定目标文件路径
ex135.Format = "Delimited" '导出格式为符号分割的文本文件
ex135.NewTableName = "C135" '指定文件名,注意无须扩展名
ex135.Header = False
ex135.Export() '开始导出
Dim str135 As String = filesys.readalltext("c:\data\C135.txt",encoding.default)
str135 = str135.replace("""","")
filesys.writealltext("c:\data\C135.txt",str135,False,encoding.default)
有的电脑可以正常执行,有的电脑报以下错误,系统都是WinXP
此主题相关图片如下:b41f0483db46446da476823882b7fc1320190904135660670.jpg
