Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Compile error vfp6 to vfp9
Message
 
 
À
12/04/2007 11:00:02
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01214993
Message ID:
01215014
Vues:
18
BTW, I can not understand the last replace command
with i(latables(lnctr, 3))
The whole piece of code can be done in VFP9 by one INSERT command.

>Here is another compile error I am trying to sort out. Moving a vfp6 app to vfp9.
>
>The error returned is " Unknown LATABLES - Undefined"
>
>The only occurences of LATABLES is in the following code:
>
>
 PRIVATE lnctr, latables
> CREATE CURSOR PackCo (flpack L, fctable C (10), fcdesc C (80))
> lcgroupcond = IIF( .NOT. EMPTY(ouser.fcgroup), "UPPER(uttable.fcgroup)==UPPER(ouser.fcgroup)", "UPPER(uttable.fcgroup)==UPPER('EVERYONE  ')")
> SELECT .F. AS flpack, fctable, PROPER(fcdesc)  FROM uttable  WHERE AT_C('APPDATA', fcdatabase) <> 0  AND NOT UPPER(uttable.fcdesc) = "CUSTOM TABLE"  AND &lcgroupcond  INTO ARRAY latables ORDER BY fctable
> FOR lnctr = 1 TO ALEN(latables, 1)
>    APPEND BLANK
>    REPLACE flpack WITH latables(lnctr, 1), fctable WITH latables(lnctr, 2), fcdesc WITH i(latables(lnctr, 3))
> ENDFOR
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