| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1485 人关注过本帖
标题:因操作错误,退不出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
帖 子:1547
专家分:184
注 册: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
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
多谢各位指教。特别是kiff职业侠客
2013-03-29 21:15
快速回复:因操作错误,退不出VFP ,光标指向prg中的一条代码,在命令窗口输入qu ...
数据加载中...
 
   



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

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