Ynt: MI MB - Read Table Names

[Tuncay KUCUKPEHLIVAN]

readcontrol returns as integer which shows the index of the array
tablenames
if you change the statement
note "Selected table is : " + readcontrolvalue(1001)
 to
note "Selected table is : " + tablenames(readcontrolvalue(1001))

good luck

-----�zg�n �leti-----
Kimden: [EMAIL PROTECTED]
<[EMAIL PROTECTED]>
Kime: [EMAIL PROTECTED] <[EMAIL PROTECTED]>
Tarih: 25 �ubat 1999 Per�embe 18:52
Konu: MI MB - Read Table Names


I am facing problem with the following programme.
Actually I want to Read the open table and their columns
but I am facing the problem (compile it then you will get the problem)

Thanks in advance


include "mapbasic.def"
include "icons.def"
include "menu.def"

declare sub main
declare sub FindTableNames
DECLARE SUB XYZ

sub main
create buttonpad "Delete Records " as

pushbutton
  calling FindTableNames
  icon MI_Icon_misc_13
  show
Title " Delete Records "
  Width 5
  show
  POSITION (1,1)
exit sub
end sub


Sub FindTableNames
Dim nCntr As Integer
Dim TableNames() As String
dim a1 as SmallInt


   If NumTables() > 0 Then
      For nCntr = 1 To NumTables()
         Redim TableNames(nCntr)
         TableNames(nCntr) = TableInfo(nCntr, TAB_INFO_NAME)
      Next
   End If
dialog
  Title "Tables are: "
  control listbox
  ID 1001
  width 100
  height 30
  title FROM VARIABLE TableNames
  into a1
  Control OKButton
  calling xyz
  Control CancelButton


End Sub

SUB XYZ
dim tab as string
note "Selected table is : " + readcontrolvalue(1001)

note " The Problem is How can I read the table name as string instead of
Number"
EXIT SUB
END SUB
Aditya
Executive (Systems)
Information Systems Department
GCMMF, Anand
[E-mail me at [EMAIL PROTECTED]]
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]

----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]