Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Replicate command error
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
The Mere Mortals Framework
Divers
Thread ID:
00690991
Message ID:
00691196
Vues:
21
I have simulated the problem many many times and the more I debug it, the more confusing it becomes. The scenario is like this.

I have two menu options. The first menu launches a form with a button that calls a PROGRAM that I created. I clicked the button and calls my program. My program uses a different datasessionid and before it exits, it sets the form's datasessionid back to its original value. It populates a table named "description" (using SQL stmts). Then, I closed the form.

Then I chose the second menu option. It is the one that launches the form that is encountering the problem. This "File does not exist" error shows that the error is from "v_description.ftype". The strange thing is that, if I exit my application, run it again, click the SECOND MENU OPTION first, the form is displayed successfully. But if I closed this form, click on the first menu option, close this first menu option form, click the second menu option again to launch the second menu option form, "File does not exist" error is displayed.

I couldn't figure out what is really happening here. Below is my code for the first menu option form that calls my program.

IF !USED('v_description')
selDir=ALLTRIM(v_dirtoread.datadir)
IF !EMPTY(seldir)
lnAnswer = MESSAGEBOX( MsgSvc("((TEXT))ReadDirectory"),3+32,;
'Business Object Builder')
IF lnAnswer = IDYES
ThisForm.WaitMode(.T.)
ThisForm.LockScreen = .T.
Thisform.Saverecord() * saves my primarybizobj
DO fill_dbaseinfo with selDir, thisform.DataSessionId * calls my program
ThisForm.WaitMode(.F.)
ThisForm.LockScreen = .F.
ENDIF
ELSE
msgsvc("NoDirSelected")
ENDIF
ELSE
MESSAGEBOX("Close any open forms first",64)
ENDIF

Thank you very much for taking time to look at my problem. I really appreciate it.

Nerissa
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform