Bob,
I assume you have created a grid of polygons that define the neat line of
each map page; and
Identified them sequentially in field ID. Then, fetching through your Grid
table :
Dim iThisGrid as Integer
iThisGrid = Grid.ID
Select * from Grid
where obj intersects (select obj from grid where id = iThisGrid)
and ID <> iThisGrid
order by ID
into NearGrids
The map of NearGrids would look like this:
1 | 2 | 3
_______
4 | | 5
_______
6 | 7 | 8
The numbers represent the RowID of table NearGrids.
>From the rowid, you can determine the ID of upper, lower, left and right
neighbors.
Use the CentroidX and CentroidY of the current page to Set Map Center (x,y).
Set Map Zoom to the width of your page.
Now you can create four text objects on the layout, each with a variable set
to the respective ID,
according to the RowID of NearGrids.
Good luck.
Mike Kilmore
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
