退不出vfp现象很多
因操作错误，退不出VFP ，光标指向prg中的一条代码，在命令窗口输入quit也不退出，如何介决？
如：在选择文件对话中选 错了文件退不出程序反而光标指向代码中。此现象如何介决?
我在主程序中已有on shutdown quit，也不行。

注要是其它操作人员，我的意思不要让光标停在prg中一条指令中。

例如应指明选择.XLS，而他选了.txt，，又是目录选错了。。。不可能每样都要判断一下选择的内容是否正确，正确了才能进行，否则退出。有否简单办法？

kiff
12楼兄：
请明示代码的含义，能否举一个例子里面要有代码。让俺明白。多谢了。

kiff
14楼兄
我遵照的指示，把上述代码放进去，并把lower(cfile2)='XLS'改为大写，程序没有应出现的提示( wait wind '导入出错，请检查')

我的还特意选不选xls，而选DBF也没有反应

试了下成功了，但
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 前面？

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中没有动静呢？

多谢各位指教。特别是kiff职业侠客