Tech Tip: Listing your tables in your database with their respective table numbers

PRODUCT: 4D | VERSION: 2004.2 | PLATFORM: Mac & Win

Published On: November 4, 2005

The code below will create a file that contains all your tables in your database listed in the order they were created.

C_LONGINT(NumTables)

C_TIME(vhDoc)

vhDoc:=Create document("Tables.txt")

NumTables:=Count tables

For ($vlTable;1;NumTables)

SEND PACKET(vhDoc;String($vlTable)+". "+Table

name($vlTable)+Char(13)+Char(10))

End for

CLOSE DOCUMENT(vhDoc)