Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to get un-stuck from never ending QueryUnload loop
Message
 
 
À
01/03/2001 16:44:55
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00480846
Message ID:
00481221
Vues:
16
Micheal,

Check my FAQ about releasing all forms.

>Hi Vlad,
>
>>
>>for i=1 to _Screen.FormCount
>>  if _Screen.forms[i].Name = 'MyChildFormName'
>>    _Screen.forms[i].Release
>>  endif
>>endfor
>>
>
>Just on the Forms array, after each form is released the forms array is resized. It would be better to iterate backwards through the array, or always release the first form in the array such as below
>
>
>FOR i = 1 to _Screen.FormCount
>  IF _Screen.forms[i].Name = 'MyChildFormName'
>    _Screen.forms[1].Release
>  ENDIF
>NEXT
>
>
>
>FOR i = _Screen.FormCount TO 1
>  IF _Screen.forms[i].Name = 'MyChildFormName'
>    _Screen.forms[1].Release
>  ENDIF
>NEXT
>
>
>Maybe even test the queryUnload event before attempting to release the form.
>
>Michael Henstock
>AWS
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform