tags, but's lets try this.
>
>
>* Display all tables in a DBC.
>
>LOCAL lnTotTables, lnCurTable, lcCurTable
>LOCAL ARRAY laTables[1]
>
>IF NOT DBUSED( "Books")
> OPEN DATABASE Books
>ELSE
> SET DATABASE TO Books
>ENDIF
>
>lnTotTables = ADBOBJECTS( laTables, "Table")
>FOR lnCurTable = 1 TO lnTotTables
> lcCurTable = laTables[ lnCurTable ]
> ?lcCurTable
>ENDFOR
>
><\pre>------------------------------------------------
John Koziol, ex-MVP, ex-MS, ex-FoxTeam. Just call me "X"
"When the going gets weird, the weird turn pro" - Hunter Thompson (Gonzo) RIP 2/19/05