errhand.prg

来自「红狐VFP6通讯录V3.3,大家看看,可能会有帮助,好了」· PRG 代码 · 共 23 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: ERRHAND.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 PARAMETER ERRNUM , MESSAGE
 NANSWER =  ;
      MESSAGEBOX('出错代码为：' + ALLTRIM(STR(ERRNUM)) + CHR(13) + CHR(13) + '错误原因是：' +  ;
MESSAGE +  ;
CHR(13) +  ;
CHR(13) +  ;
'请与黄虎锋联系！',530,'通讯录：程序出错！')
 IF NANSWER = 3
    QUIT 
 ENDIF 
 IF NANSWER = 4
    RETRY  
 ENDIF 
 IF NANSWER = 5
    RETURN 
 ENDIF 
*