>George ---
>
>Hit reply to this message to see ther hidden HTML tags:
>
>
>PROCEDURE dummy
> IF oApp.IndentThis
> This.Indented=.T.
> ENDIF
>ENDPROC
>
>

I can't see the

 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>