If CurObj is an object, (= LayerList(Var_B)+"_Clipped.OBJ") it cannot be
used as an index to a DO CASE (only numeric or literal variable). You should
be using OBJECTINFO(yourobject,1) that will return for ex. OBJ_TYPE_POINT


Jacques Paris
-----Original Message-----
From: Ben Crane [mailto:crane_ba@;yahoo.com]
Sent: October 23, 2002 09:20
To: [EMAIL PROTECTED]
Subject: MI-L Annoying Data Mismatch Error

Hi all,

It must be the weather...I'm suddenly getting this
data mismatch error and it's focussed on the following
code [it's only a segment of code]:

CurObj = LayerList(Var_B)+"_Clipped.OBJ"

Do Case CurObj     <--------ERROR

Case OBJ_TYPE_POINT
fx = ObjectGeography(CurObj, OBJ_GEO_POINTX)
fy = ObjectGeography(CurObj, OBJ_GEO_POINTY)

Print #1, "<circle id="""+lcase$(LayerList(Var_B))+"""
attr="""+LayerList(Var_B)+"_"+Var_J+"_"+Count+"""
style=" & chr$(34) & "fill:blue;stroke:blue" &
chr$(34)
Print #1, "cx=" & chr$(34) & Int(fx - fMinX) &
chr$(34) & " cy=" & chr$(34) & Int(fMaxY - fy)
& chr$(34) & " r=" & chr$(34) & nPointSize & chr$(34)
& " onclick=""getvalue(evt)""/>"

End Case

I've looked at it over and over and can't work out
what I'm doing wrong--anyone with a fresh set of eyes
I would be grateful...

Thanx
Ben

__________________________________________________
Do you Yahoo!?
Y! Web Hosting - Let the expert host your web site
http://webhosting.yahoo.com/

---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 3727


---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 3732

Reply via email to