问题是在程序调试中遇到的
用FOPEN()打开一个低级文件后,因出错中断执行,没有运行到关闭该文件句柄的语句.
如果再次启动程序,再次打开同一低级文件时必定返回-1句柄,使得程序无法执行下去.
我明白要关闭该文件
可是到哪找回丢失的句柄来关闭它呢?
程序流程大致如下:
nHandle    =    FOPEN("AAAAA",1)    && 打开低级文件AAAAA
……
……
* 假设程序在此出错而中断
……
……
FCLOSE(nHandle)
RETURN

退出VFP后再重新运行。

不懂

哈哈,有效,我也是一直这么做的
但不是我想要的
有更好的办法吗?

才发现原来是版主给的办法
失敬失敬
真的没有更好办法了吗???

try catch

CLOSE ALL

没办法找回，只能用外部文件记录。

没办法找回，只能用外部文件记录。

假如中间程序出错，是否考虑让程序自动退出来，不影响重复执行程序，下列是否有参考价值？

 nHandle=FOPEN("AAAAA",1)    && 打开低级文件AAAAA
 ner=0
 on error err()
* 假设程序在此出错而中断
 if ner=1
    FCLOSE(nHandle)
    on error
    MESSAGEBOX("程序在中间出错")
    return
 endif  
 on error
 FCLOSE(nHandle)
 return
 
 function err
   ner=1

收到的鲜花

• 井绳 于 2015-12-06 14:30 送鲜花  5朵   附言：很有参考价值,谢谢您的回复