在VFP编程中，当程序运行出现错误时，让程序显示提示信息，再根据情况处理。如未插软盘就插好盘继续，如果是程序代码错误，就退出程序修改。其方法：
第一步，在主程序的第一行加一语句或在命令窗口输入语句：
ON ERROR DO ERROR WITH SYS(16),ERROR(),line()
第二步，编一程序，名为 ERROR.PRG
para SYS16,ERROR,mlineno
priv all
??chr(7)
??chr(7)
PR=SYS(101)
PN=SYS(102)
MESSAGE_C=ALLTRIM(MESSAGE())
set devi to scre
set print off
ERR0='错误信息： '+alltrim(str(M.error))+'--'+message_c+chr(13)
ERR1='出错文件： '+m.sys16+chr(13)
ERR2='出错行号： '+ltrim(str(m.mlineno))+chr(13)
if len(trim(m.sys16))=0
mess_n=messagebox('&err0',16+0+0,'命令错误')
else
mess_n=messagebox('&ERR0&ERR1&ERR2'+'错误代码： '+
ALLTRIM(message(1)),16+2+0,'程序错误')
IF m.mess_n=5
set devi to &PR
SET PRINT &PN
RETU
ENDI
IF m.mess_n=4
set devi to &PR
SET PRINT &PN
RETR
ENDI
if m.mess_n=3
release frmcustomer
deac window all
sele 1
retu to mast
endi
endi
这样如果程序运行出错就会提示你出错的程序名、行号、命令代码、何种错误。
|
