[求助]同一代码有的电脑可以正常执行，有的报错是什么原因 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]同一代码有的电脑可以正常执行，有的报错是什么原因

共有3820人关注过本帖树形打印复制链接主题：[求助]同一代码有的电脑可以正常执行，有的报错是什么原因

happy_gile

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：348 积分：3565 威望：0 精华：0 注册：2015/8/16 19:06:00

[求助]同一代码有的电脑可以正常执行，有的报错是什么原因 发帖心情

Post By：2019/9/4 15:28:00 [显示全部帖子]

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

happy_gile

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：348 积分：3565 威望：0 精华：0 注册：2015/8/16 19:06:00

Post By：2019/9/4 15:40:00 [显示全部帖子]

存在

之前有一行代码

If FileSys.DirectoryExists("C:\data") = False Then

FileSys.CreateDirectory("C:\data")

End If

happy_gile

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：348 积分：3565 威望：0 精华：0 注册：2015/8/16 19:06:00

Post By：2019/9/4 15:50:00 [显示全部帖子]

要是代码出错了，应该所有电脑都报错呀

主题：[求助]同一代码有的电脑可以正常执行，有的报错是什么原因