Sorry John.
I'd cut out a few lines cos I thought they weren't necessary in
GET_ROUTES_ARRAY, with lnNoRows, which I re-use in the loop:
Below is UPDATED example of how I get my routes into an array. In your
case you get your descriptions.
Terry
'________________________________________________
Sub GET_ROUTES_ARRAY
'___________________
Dim lnNoRows as SmallInt,
lcRoute as String
Select * from Route
into csrRoute
order by Route NoSelect ' Gets the table in Route No. order,
ready for the pop-up
lnNoRows = TABLEINFO( "csrRoute",
TAB_INFO_NROWS)
Fetch First From csrRoute
ReDim gaSerRouteNames( lnNoRows) ' array enough elements for the
num. or rows in cursor
lnNoRows = 1
Do While Not EOT( csrRoute) ' build array of Route nums
lcRoute = RTRIM$( csrRoute.Route)
gaSerRouteNames( lnNoRows) = lcRoute ' Global array
lnNoRows = lnNoRows + 1
Fetch Next From csrRoute
Loop
Close Table csrRoute
End Sub
_______________________________________________
MapInfo-L mailing list
[email protected]
http://www.directionsmag.com/mailman/listinfo/mapinfo-l
