>Ok, so now show us the Error() method of that class and all of the classes it >inherits from.
Ok, the error method only contains a messagebox command and then quits. If an error occurs in this object I want the application to terminate. The object is a "custom" object based on the VFP base class CUSTOM.
Here is code in my Error method:
lparameters nError, cMethod, nLineno
messagebox("Fatal Error" + chr(13) + ;
"Error #: " + alltrim(str(nError)) + chr(13) + ;
"Error : " + message(1) + chr(13) + ;
"Method : " + cMethod + chr(13) + ;
"Line # : " + alltrim(str(nLine)) + chr(13) + chr(13) + ;
"Application will now shut down." , 16, "Fatal Error!")
quit
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement