I am trying to update the color of a set of points from data stored in a
column. The "Color" colum is integer format ext "10256706". Having tried
to piece together my best attempt from the archives this is what I have come
up with. Any help or advice as to why this won't work would be appreciated.
Include "mapbasic.def"
Dim ColorRow As Integer
Dim ColorObj As Object
Set Table Test_Color
FastEdit On Undo Off
Fetch First From Test_Color
Do While Not EOT(Test_Color)
ColorRow = Test_Color.Color
ColorObj = Test_Color.Obj
Alter Object ColorObj
Info OBJ_INFO_SYMBOL, MakeSymbol(12, ColorRow, 16)
Update Test_Color
Set Obj=ColorObj Where Color = ColorRow
Fetch Next From Test_Color
Loop
Jeff Rogers
[EMAIL PROTECTED]
_______________________________________________________________________
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, send e-mail to [EMAIL PROTECTED] and
put "unsubscribe MapInfo-L" in the message body.
