Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Save current directory and return to it
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00427304
Message ID:
00427440
Vues:
14
>Hi Nadya,
>Does your do TableMaintenance rotine have a READ EVENTS - you could add one, and then control will not return until you have closed the TableMaintenance form.

Hi Houston,

Thanks for your reply. Check today's Browse thread for discussion of this problem. I added read events into this application, but it doesn't solve my problem.

Here is a story:
Main application with its own read events call another application (without read events), this application has a form and a button on this form, which call my TableMaintenance application, which now has read events. I'm getting an error 'File is not found'. It's trying to find table which is under Data directory in TableMaintenance and failed to find it, because current directory is not TableMaintenance...


>Houston.
>
>>Hi everyone,
>>
>>I'm having a problem and could not resolve is so far. The problem is:
>>I want one application to be run from another application.
>>In the calling application there is no other directories, than root directory. In the application, which should be called (TableMaintenance) I have usual directory structure (Data, Progs, etc.) In order to see inside directories I have to change directory to this application and after it finishes its work, return back to the old directory. So I tried this wrapper:
>>
>>********************************************************************
>>*  Description.......: LookupDFLT - Default lookup action in XForm
>>*  Calling Samples...: 
>>*  Parameter List....: 
>>*  Created by........: Nadya Nosonovsky 10/10/2000 10:27:12 AM 
>>*  Modified by.......: 
>>********************************************************************
>>private pcCurDir && Current directory, make it private to be visible in hierarhy
>>local lcTableMaintDir
>>lcTableMaintDir='\redp\appl\TableMaintenance\' && Table Maintenance default directory
>>pcCurDir=curdir() && Save current directory
>>cd (lcTableMaintDir)
>>do TableMaintenance && Without parameters
>>cd (pcCurDir) && change back to current directory
>>return
>>
>>Unfortunately, this does not work, because program continues its execution without stoping on do TableMaintenance (there I have only non-modal forms).
>>
>>Could you please help me?
>>
>>Thanks in advance.
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