Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Compile error vfp6 to vfp9
Message
De
12/04/2007 11:43:30
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01214993
Message ID:
01215032
Vues:
13
I removed the private declatation and added latables[1]. It gave me the same compile error until I added the external command
PRIVATE lnctr
 laTables[1]
 EXTERNAL ARRAY 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('M2MDATA', 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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform