如何做自己的错误提示
我有一个数据录入界面，数据录入后，点保存按钮，按钮里有计算公式。数据错误时，vf会提示数值上溢（39）错误，我想在出现这类错误时，不要系统提示的错误对话框，而提示我自己写的，比如：“数据有错误，请修改”，然后反回到录入数据的界面中，能修改数据。vf提示错误后，程序就不能正常运行了。
[解决办法]
nValue=MESSAGEBOX( '程序发生错误！详细信息如下： '+CHR(10)+CHR(10)+;
'错误代号： '+LTRIM(STR(tnError))+CHR(10)+;
'错误行号： '+LTRIM(STR(tnLineno))+CHR(10)+;
'错误信息： '+tcMessage+CHR(10)+;
'错误代码： '+tcMessage1+CHR(10)+;
'错误位置： '+tcProgram+CHR(10)+CHR(10)+;
'该错误已经记录到文件：ErrorLog.txt,MemoryLog.txt,StatusLog.txt。 ';
,2+48, '信息提示 ')
DO CASE
CASE nValue=3
CLOSE DATABASES ALL
CLOSE ALL
DELETE FILE *.DBC
DELETE FILE *.DCT
DELETE FILE *.DCX
DELETE FILE *.DBF
DELETE FILE *.idx
DELETE FILE *.bak
SQLEXEC(gnConnHandle, 'IF @@TRANCOUNT> 0 ROLLBACK ')
QUIT
CASE nValue=4
RETRY
CASE nValue=5
RETURN
ENDCASE
改为
nValue=MESSAGEBOX( '程序发生错误！详细信息如下： '+CHR(10)+CHR(10)+;
'错误代号： '+LTRIM(STR(tnError))+CHR(10)+;
'错误行号： '+LTRIM(STR(tnLineno))+CHR(10)+;
'错误信息： '+tcMessage+CHR(10)+;
'错误代码： '+tcMessage1+CHR(10)+;
'错误位置： '+tcProgram+CHR(10)+CHR(10)+;
'该错误已经记录到文件：ErrorLog.txt,MemoryLog.txt,StatusLog.txt。 ';
,0, '信息提示 ')
RETURN
