用con = Sqlstringconnect([Driver={SQL Server};Server=192.168.1.10;UID=sa;PWD=a;Database=hztx])
当出现数据没有保存情况下，与服务器连接不上，程序不能退出，请教这种情况写什么代码，写在哪里才能退出？谢谢

在表单eroor中写代码
this.Release
CLEAR EVENTS
quit
都不执行，请各位老师出招，谢谢

顶一下

先看看有无触发表单的eroor

终于等到版主出手
第一出现
第二个出现

第三个出现是表单error中nError=13，nError=1466 nError=1526
第四个是

不知到从那下手，恳请版主帮助解决，谢谢

VFP的异常提示，VFP的异常处理过程拦截不了吗？
ON ERROR 可以拦截异常弹窗吗？

请教版主在主程序前面
On Error Do MYERROR With Error(), Lineno(1), Message(), Message(1), Program(), Program(1)
在主程序最后
Procedure MYERROR
Parameters nError, nLineno, cMessage, cMessage1, cProgram, cProgram1
    Messagebox(nError)
ENDPROC
这样对吗？没有反应，没有出现对话框？

如果还是出现异常弹窗，VFP就没拦截到。

On Error Do err.prg With Error(), Message(), Message(1), Program(),lineno(1)

err.prg
parameters nError, cMessage, cMessage1, cProgram, nlineno
nvALUE = Messagebox("程序发生错误，详细信息如下：" + Chr(13) + Chr(13) + ;
    "错误代号: " + LTAIM(STR(nError)) + Chr(13) + ;
    "错误行号: " + LTRIM(STR(nLineno)) + Chr(13) + ;
    "错误信息: " + cMessage + Chr(13) + ;
    "错误代码: " + cMessage1 + Chr(13) + ;
    "错误位置: " + cProgram,2+48, "信息")
do case
case vALUE=3
quit
case vALUE=4
retry
case vALUE=5
retun
endcase
也没出现