Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
GETDIR() returns a numeric value
Message
De
02/04/1999 21:18:05
 
 
À
02/04/1999 13:38:23
Nancy Folsom
Pixel Dust Industries
Washington, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00204491
Message ID:
00204855
Vues:
15
The code was run from the click event of a command button that
was attached to a column in a grid. The command button was conditional
based on a certain condition. I used dynamiccurrentcontrol in the
Init of the grid to set it.

Anyway, I created a similar form with a grid and could not get it
to replicate the behavior. I believe it was some flakey behavior in
the grid that I could not repeat in another form. BTW, the command
button was included as part of the 3rd column of the grid. That is
where I think the 3 was comming from (maybe not). The old form continues
to show a 3. New one works, so problem is solved but it is a strange
one...

>I tried this code:
>*!*	I am running the following code where oApp.cDataPath = ""
>*!*	and lcDirName returns a numeric 3.
>
>LOCAL lcDirName
>lcDirName = ""
>lcpath = "D:\tom\data\"
>lcDirName = GETDIR(lcPath,'Store data where?')
>?lcdirname
>?type('lcdirname')
>in both the command window and as an EXE. I tried both picking a directory and canceling. A character value was returned each time. This is in 5.0a Build 415.
>
>Do you see the problem you describe with exactly the code you posted? Or is it a summary? If a summary, I suggest you try the example and see if it is really due to the GETDIR().
>
>>The code fragment below works from the command line and when
>>I go to the debug window and come to the top of the code
>>fragment and choose "Set Next Statement".
>>
>>This very bizzare behavior is occuring in an APP under
>>VFP 5.0a.
>>
>>
>>I am running the following code where oApp.cDataPath = "D:\tom\data\"
>>and lcDirName returns a numeric 3.
>>
>>LOCAL lcDirName
>>lcDirName = ""
>>IF TYPE("oApp.cDataPath") = "C" AND NOT EMPTY(oApp.cDataPath)
>> lcpath = oApp.cDataPath
>>ELSE
>> lcpath = ""
>>ENDIF
>>
>>lcDirName = GETDIR(lcPath,'Store data where?')
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform