Information générale
Catégorie:
Codage, syntaxe et commandes
John,
Couldn't you have done this?
SELECT (This.Value)
m.TableCount = ADBOBJECTS(aTables,"Table")
ACOPY(aTables,ThisForm.aTableList)
IF m.TableCount > 0
ThisForm.lstTables.RowSourceType = 5
ThisForm.lstTables.RowSource = "ThisForm.aTableList"
ELSE
ThisForm.lstTables.RowSourceType = 0
ThisForm.lstTables.RowSource = ""
ENDIF
Just a thought
Rex
>>>How can I put the table names from a database into an array?
>>>
>>>Thanks
>>
>>John, use ADBOBJECTS() function.
>>
>>Nick
>
>Hi Nick,
>
>Thanks for the info on ADBOBJECTS(), that however will not work in this situation. I ended up with the following in the interactivechange of the list box where I put a list of databases in the directory that was selected. The code seems to work ok.
>
>SELECT ;
> ObjectName ;
> FROM (This.Value) ;
> WHERE ObjectType = "Table" ;
> INTO ARRAY ThisForm.aTableList
>
>SELECT (This.Value)
>USE
>
>IF _Tally > 0
> ThisForm.lstTables.RowSourceType = 5
> ThisForm.lstTables.RowSource = "ThisForm.aTableList"
>ELSE
> ThisForm.lstTables.RowSourceType = 0
> ThisForm.lstTables.RowSource = ""
>ENDIF
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement