在通用对话框点击取消，数据源也能读入数据？

精易1

数据源存到文件之后，从文件读，如果通用对话框的文件名栏里有了文件名，在通用对话框点击“取消”，也可以读成功，因为通用对话框一般情况是点击“打开”才返回真，所以难免产生困惑，本人是学员兼菜鸟，诚心求解惑。附上源码
.版本 2

.子程序 _按钮_存到文件_被单击
.局部变量 局_逻辑, 逻辑型

通用对话框1.过滤器 ＝ “所有文件 *.*|*.*”
通用对话框1.类型 ＝ 1
通用对话框1.打开 ()
局_逻辑 ＝ 数据源.存到文件 (通用对话框1.文件名)
.如果 (局_逻辑 ＝ 真)
    信息框 (“保存文件成功。” ＋ #换行符 ＋ “文件名：” ＋ 通用对话框1.文件名, 0, )
    数据源.清除 (1, 1, 数据源.取行数 (), 数据源.取列数 ())
.否则
    信息框 (“保存文件失败。”, #错误图标, )

.如果结束


.子程序 _按钮_从文件读_被单击
.局部变量 局_逻辑, 逻辑型

通用对话框1.过滤器 ＝ “所有文件 *.*|*.*”
通用对话框1.类型 ＝ 0
通用对话框1.打开 ()
局_逻辑 ＝ 数据源.从文件读 (通用对话框1.文件名)
.如果 (局_逻辑 ＝ 真)
    信息框 (“从文件读取成功。”, 0, )

.否则
    信息框 (“读取文件失败。”, #错误图标, )

宇智波·晓易

精易1 发表于 2014-6-25 22:56
不要这样那样，存到文件之后从文件读，在通用对话框点“点消”就读入了

直接要结果是吧。
把你所有 通用对话框1.打开 () 这行代码换为下面两行。

.如果真 (通用对话框1.打开 () ＝ 假)
    返回 ()

臭臭臭臭臭Bitch

应该不会读入的

Arbitrary

在通用对话框.打开 的后面加上
如果真(通用对话框.文件名="")
返回

精易1

ˋ物似人非 发表于 2014-6-25 22:30
应该不会读入的

亲，试试看，我试了N遍了

精易1

Arbitrary 发表于 2014-6-25 22:34
在通用对话框.打开 的后面加上
如果真(通用对话框.文件名="")
返回

情况是这样：首先存到文件，然后从文件读，不管通用对话框的文件名栏里有没有文件名，点击“取消”都可以读入刚才保存的文件的数据

精易1

情况是这样：首先存到文件，然后从文件读，不管通用对话框的文件名栏里有没有文件名，点击“取消”都可以读入刚才保存的文件的数据

Arbitrary

精易1 发表于 2014-6-25 22:42
情况是这样：首先存到文件，然后从文件读，不管通用对话框的文件名栏里有没有文件名，点击“取消”都可以读 ...

那就将通用对话框保存的路径用变量存放起来

精易1

如果找不出合适的答案，希望精易论坛的老师、版主和精易学院的老师答疑解惑

宇智波·晓易

利用一下 通用对话框1.打开 ()  的返回值就好。