【vfp开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了vfp开源代码-Err.prg的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
PARAMETERS nError,cMessage,cMessage1,cProgram,nLineno &&接收参数
nValue= MESSAGEBOX("程序发生错误!详细信息如下:"+CHR(13)+CHR(13)+;
"错误代号: " + LTRIM( STR(nError) ) + CHR(13) + ;
"错误行号: " + LTRIM( STR(nLineno) ) + CHR(13) + ;
"错误信息: " + cMessage + CHR(13) + ;
"错误代码: " + cMessage1 + CHR(13) + ;
"错误位置: " + cProgram ,2+48,"信息")
DO CASE
CASE nValue=3 &&选择终止时发生
QUIT
CASE nValue=4 &&选择重试时发生
RETRY
CASE nValue=5 &&选择忽略时发生
RETURN
ENDCASE