Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Abrir tablas libres
Message
De
01/03/2006 12:48:38
 
 
À
01/03/2006 12:14:55
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01100452
Message ID:
01100488
Vues:
11
>LcRutadeFiles ='c:\micarpeta\misdatos\'
>*
>FOR I=1 TO 12 && De Enero a Diciembre de un mismo año
> lcfile = LcRutadeFiles+'S2006'+PADL(allt(str(I)), 2, '0')
> If file('&lcfile.')
> use &lcfile. alias FILE_SEM in 0
> Endif
> select FILE_SEM
> BROW NOMO
> use
>ENDFOR



Mejor asi:
lcRutadeFiles ='c:\micarpeta\misdatos\'
*
FOR I=1 TO 12 && De Enero a Diciembre de un mismo año
   lcfile = lcRutadeFiles+'S2006'+PADL(ALLT(STR(I)), 2, '0')
   If file(lcfile)
     use (lcfile) alias FILE_SEM in 0
     select FILE_SEM
     BROWSE NOMO
     use
   Endif	
ENDFOR
BROWSE no se usa en programas hoy en dia. Se estila mejor usar un Grid en un Form que es orientado a objetos.

HTH


Alex Feldstein, MCP, Microsoft MVP
VFP Tips: English - Spanish
Website - Blog - Photo Gallery


"Once again, we come to the Holiday Season, a deeply religious time that each of us observes, in his own way, by going to the mall of his choice." -- Dave Barry
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform