标题:因操作错误,退不出VFP ,光标指向prg中的一条代码,在命令窗口输入quit也不 ...
只看楼主
kiff
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:广州
等 级:贵宾
威 望:46
帖 子:756
专家分:2531
注 册:2013-1-30
得分:0 
以下是引用sylknb在2013-3-29 19:17:17的发言:

试了下成功了,但
on error err=.t. &&如果 IMPORT FROM (cfilename) TYPE XL5 出错,则ERR=.T. 然后转到下一语句
IMPORT FROM (cfilename) TYPE XL5
on error &&结束错误捕捉
&&为什么on error err=.t.放在IMPORT FROM (cfilename) TYPE XL5 前面?
捕捉其后语句有无出错,在on error 结束语捕捉
2013-03-29 19:20
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1519
专家分:174
注 册:2006-6-3
得分:0 
if lower(cfile2)='xls'
    err=.f.
    on error err=.t. &&如果 IMPORT FROM (cfilename) TYPE XL5 出错,则ERR=.T. 然后转到下一语句
    IMPORT FROM (cfilename) TYPE XL5
    on error &&结束错误捕捉
    if err && err初始值为 .f.(假),如导入出错,则ERR=.T. (真)
        wait wind '导入出错,请检查'
        return &&返回重新选择
    endif
endif
为什么嵌在if-----endif中没有动静呢?
2013-03-29 19:24
kiff
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:广州
等 级:贵宾
威 望:46
帖 子:756
专家分:2531
注 册:2013-1-30
得分:0 
以下是引用sylknb在2013-3-29 19:24:06的发言:

if lower(cfile2)='xls'
    err=.f.
    on error err=.t. &&如果 IMPORT FROM (cfilename) TYPE XL5 出错,则ERR=.T. 然后转到下一语句
    IMPORT FROM (cfilename) TYPE XL5
    on error &&结束错误捕捉
    if err && err初始值为 .f.(假),如导入出错,则ERR=.T. (真)
        wait wind '导入出错,请检查'
        return &&返回重新选择
    endif
endif
为什么嵌在if-----endif中没有动静呢?
主if lower(cfile2)='xls'这是一个门,如果不是XLS 表,就进入不了的呀,当然就不会运 行 if-----endif间的代码了
如果是XLS表,一般  IMPORT FROM (cfilename) TYPE XL5 不 会出错的
2013-03-29 19:26
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1519
专家分:174
注 册:2006-6-3
得分:0 
多谢各位指教。特别是kiff职业侠客
2013-03-29 21:15



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-402165-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.114234 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved