不这样做 怎么知道操作正确与否？

如果难以判，可以用捕捉出错

err=.f.
on error err=.t.
这是你的关键处理语句（如导入)
on error
if err
    WAIT WIND '导入出错,请检查选择的文件'
     return
endif

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

就用你之前的代码吧：
cfilename=GETFILE('XLS', '','', 0, '选择一个要转化的EXCEL表')  &&获取有路径完整的文件名
cfile1=JUSTSTEM(cfilename ) &&获取不含扩展名的文件名
cpath=JUSTPATH(cfilename )  &&取路径
cfile2=JUSTEXT(cfilename) &&取扩展名
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

程序编译后交给客户，源程序代码不要给客户，程序出错后就不会有调试窗口出现。

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

lower(cfile2)='XLS'  不应是大写
改回去吧 lower(cfile2)='xls'  

lower()是转换为小写的

我意思是当导入语句出错时，就会提示（ wait wind '导入出错，请检查')，如果没错，就继续正常运行下去


[ 本帖最后由 kiff 于 2013-3-29 18:51 编辑 ]

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

如果你真想测试，就改成这样,随便先个文件试试，选择个文本文件吧
cfilename=GETFILE('', '','', 0, '选择一个要转化的EXCEL表')  &&获取有路径完整的文件名
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


[ 本帖最后由 kiff 于 2013-3-29 19:10 编辑 ]

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