Hi,
Stolen and modified from Peters repository :)
Include "MapBasic.DEF"
Declare Sub Main
Declare Function GetTableName(ByVal DlgTitle as string) as string
Sub Main
Print GetTableName("Select table")
end sub
Function GetTableName(ByVal DlgTitle as string) as string
Dim nTab,
Carolyn,
The following steps should help you
1. Get the Number of Tables using the NumTables function
2. Create an array of that size
3. Loop on the TableInfo function to get the name for each Layer into
the array
4. Build the dialog using the array
The code below should do it for you
Include "M
Easier to type the code than to explain. There are of course a lot of
possible variations, depending upon what you want to achieve.
Hope this helps
Spencer
Function TableList (a (0) as string, ByVal pad as smallint) as smallint
Dim nt as smallint
Dim tt as string
Dim tn as smallint
'Dim t (0)