Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Some ideas needed for the problem
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01224678
Message ID:
01224699
Views:
16
>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
Previous
Reply
Map
View

Click here to load this message in the networking platform