Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Syntax, Scope or Stupidity?
Message
 
 
À
28/12/2010 11:33:46
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Divers
Thread ID:
01494008
Message ID:
01494010
Vues:
82
>Re: Thread ID: 1473802
>I have 2 modeless forms open and I run the following code:
>
>Both appear as open forms in the messagebox below, but I cannot programatically close the one called OrderEntry_Scx.
>
>Can you help? Thank you!
>
>
>
>	FOR EACH loForm In _Screen.Forms
>		=Messagebox('Here is the form: ' + loForm.Name)
>		 IF loForm.caption = 'OrderEntry_Scx'
>			 	*!* loForm.Release()
>			 	*!* loForm.Name.Release()
>			 	*!* OrderEntry_Scx.Release()
>			 	*!* loForm.Release 
>			 	*!* loForm.Name.Release 
>			 	*!* OrderEntry_Scx.Release 
>		 ENDIF
>	NEXT 
>
The reason for this problem as you can not remove an object from collection using FOR EACH loop. This problem was discussed here before and I admit I made the same mistake myself (and may be twice even). You need to loop using counter and from the last record to the first.

Check How can I release all open forms FAQ #7975 It shows the main principle, you need to adapt that code for your case.

And also, as Boris said, you probably need to check name of the form, not caption.
If it's not broken, fix it until it is.


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

Click here to load this message in the networking platform