Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Some ideas needed for the problem
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01224678
Message ID:
01224699
Vues:
10
>I just started to update my answer :-)
>UPDATE:
>I just read more carefully your answer :-)
>You can't, but with something like:
>
>LOCAL loParameter
>loParameter = CREATEOBJECT('oParameter')
>loParameter.cMode = 'Edit'
>loParameter.lChanged = .f.
>loParameter.iTicket_ID = crsSearchResults.iTicket_ID
>lcFormInstance = [frmTicket]+TRANSFORM(thisform.frmTicket)
>thisform.frmTicket = thisform.frmTicket + 1
>thisform.AddProperty(lcFormInstance,NULL)
>DO FORM frm_Ticket WITH loParameter NAME thisform.&lcFormInstance LINKED NOSHOW
>thisform.&lcFormInstance..Name = lcFormInstance
>BINDEVENT(EVAL(thisform.]+lcFormInstance),[Hide],thisform,[ChekWhatTheFormIsDone])
>
>
>
>**** Method ChekWhatTheFormIsDone
>LOCAL oForm, laEvents[1]
>AEVENTS(laEvents,0)
>oForm = laEvents[1]
>IF oForm.oParameter.lChanged
>   ******
>ENDIF
>oForm.Release()
>oForm = NULL
>thisform.RemoveProperty(oForm.Name)
>
>What you need:
>1. Add a property in the main form named frmTicket = 0
>2. Create a Method in the main form named ChekWhatTheFormIsDone
>3. In the frm_Ticket Save the parameter you pass to some property in that form
>4. Instead of Releasing the form, just HIDE it.
>
>
>5. TEST THIS!!! I DIDN'T :-)

Nah, too much work <g> I like Ed's solution and Hugo's. In fact, that's what I was using too, just forgot to apply here.
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