List tables - Level Extreme

Plateforme Level Extreme

Abonnement

Profil corporatif

Produits & Services

Support

Légal

English

List tables

Message

16/04/2007 07:06:23

Mohammed Qasem
Jordan Telecom
Amman, Jordanie

16/04/2007 06:54:28

Alex Feldstein
Floride, États-Unis

Information générale

Forum:

Visual FoxPro

Catégorie:

Base de données, Tables, Vues, Index et syntaxe SQL

Titre:

Re: List tables

Versions des environnements

Visual FoxPro:

VFP 9 SP1

OS:

Windows XP

Database:

Visual FoxPro

Divers

Thread ID:

01216124

Message ID:

01216144

Vues:

hi,
thank you very much, it works
is ther a way to let it as
thisform.list1.value=aTables(nTablesCount,1) or thisform.combo1.value=aTables(nTablesCount,1)

SET DEFAULT TO d:\vfpview
nTablesCount = ADIR(aTables, 'DBF')&&&  result is 0
nTablesCount = ADIR(aTables, '*.DBF')&&& ok  
CLEAR
FOR nCount = 1 TO nTablesCount
   ? aTables(nTablesCount,1)
thisform.list1.value=aTables(nTablesCount,1)
or
thisform.combo1.value=aTables(nTablesCount,1)


ENDFOR

thanks

>>i try as..but not work??
>>
>>SET DEFAULT TO d:\vfpview >>gnDbcnumber = ADIR(tables, '*.dbf') && Create array >>CLEAR >>FOR nCount = 1 TO gnDbcnumber && Loop for number of databases >> ? gaDatabase(nCount,1) && Display database names >>ENDFOR >>SET DEFAULT TO d:\vfpview >>
>>thanks
>
>You are putting the result of ADIR() into a different named array than the one you use to retrieve.
>
>

>SET DEFAULT TO d:\vfpview
>nTablesCount = ADIR(aTables, 'DBF')
>CLEAR
>FOR nCount = 1 TO nTablesCount
>   ? aTables(nTablesCount,1)
>ENDFOR
>

Répondre

Fil

Voir

Click here to load this message in the networking platform