Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
What can Cause a Data Session to stay open.
Message
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Miscellaneous
Thread ID:
00411286
Message ID:
00411323
Views:
11
I understand that, but to prevent a dangling reference, you have to release any references [or set them ot .null.] to other objects before you release the objects referenced.

From what you have given, I can not tell if you release the reference [variable] before or after you release the actual form referenced by the variable.

>Hi Mark,
>
>loEmployeeForm is a local memvar in form B. I have a general array
>which keeps track of all opened forms.
>
>So I did the following: (in form B)
>
>LOCAL m.lnPos,m.loEmployeeForm,
>m.lnPos=ASCAN(oApp.aActiveForms,"frmEmployee")
>m.loEmployeeForm=oApp.aActiveForms[m.lnPos-13]
>
>m.loEmployeeForm - is the reference object of form A.
>
>Thanks
>
>Doron
>
>>Do you release or set to .NULL. the loEmployeeForm reference before you >release Form B?
>>
>>>Hi All,
>>>
>>>From form A I post some records into form B.
>>>The table in form B is within a child grid.
>>>
>>>so I have to turn off the relation post the records
>>>and then turn the relation on, something like that.
>>>
>>>While m.loEmployeeForm is the reference object of form B.
>>>This code is within form A.
>>>
>>>WITH m.loEmployeeForm.pgfChild.Page1.grdChild
>>> *** Select the Perant
>>> SELECT (.LinkMaster)
>>> m.lcRelExpr="cEmp_SSN"
>>>
>>> *** Turn off the relations
>>> SET RELATION OFF INTO (.RecordSource)
>>>
>>> .... More Code
>>>ENDWITH
>>>
>>>Latter on I close both forms and open another one and there I have
>>>a problem I can not delete a table, even though USED() is FALSE.
>>>
>>>I am getting an error that the table is busy.
>>>
>>>In my Init method of that form I have the following code:
>>>
>>>IF VARTYPE(oCustomApp)=="U"
>>> PUBLIC oCustomApp
>>> oCustomApp=NEWOBJECT("CustomApp","LasApp")
>>>ENDIF
>>>
>>>If I change the above code into the followng the
>>>problem is gone:
>>>
>>>IF VARTYPE(oCustomApp)=="U"
>>> PUBLIC oCustomApp
>>> SET CLASSLIB TO LasApp
>>> oCustomApp=CREATEOBJECT("CustomApp")
>>>ENDIF
>>>
>>>Now anybody has an idea about it. There are no transcations
>>>either, in form A or form B.
>>>
>>>Thanks
>>>
>>>Doron
Mark McCasland
Midlothian, TX USA
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform