Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to NOT stop the Select SQL?
Message
De
27/01/2005 15:36:22
Mike Yearwood
Toronto, Ontario, Canada
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Divers
Thread ID:
00980904
Message ID:
00981447
Vues:
27
Hi Nadya

I see no way to make the query continue if the user hits escape. To me the whole point is that the user is tired of waiting and wants to quit. If they hit escape by mistake, they'll have to learn to be more careful. You could put a window behind the progress bar, which advertises the escape key and warns of the consequences.

>Hi everybody,
>
>I want to be able to stop or not stop query execution if the user pressed an ESC while running query.
>
>First of all, I found that the documentation on Error 1839 is very limited and incorrect.
>
>Here is what I have in my Search button:
>
>SET ESCAPE ON
>		SET NOTIFY ON
>		ON ESCAPE plStop = YesNo("Are you sure you want to stop?")
>		SET TALK WINDOW NOWINDOW
>		SET TALK ON
>		.nRecords = EVALUATE('thisform.obizObj.PopulateCursor('+ ;
>			.cParams +')')
>
>and this is the code from Error method:
>
>LPARAMETERS nError, cMethod, nLine, tcSys16, toErrObj
>IF m.nError = 1839 && Requery cancelled	
>
>	IF VARTYPE(m.plStop) = "L" AND m.plStop
>		* Have we stopped already?
>	ELSE
>		RETRY
>	ENDIF
>ELSE
>	DODEFAULT(nError, cMethod, nLine, tcSys16, toErrObj)
>ENDIF
>
>However, if I say No, I don't want to stop, my view is not required (?spell) again. Is there a way to achieve the desired functionality? I do not see a way.
>
>Thanks in advance.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform