Sorry - I just read this last part and saw that you were trying to do.
Here's code that does it based on a cursor with MapPoint Desktop:
Take a cursor that contains certain fields that MapPoint will recognize
and export it to a CSV file: (as you can see this has City,State,Zip and
Charges)
The Form mentioned as FRMMAP simply populated the pcType and pcMap fields
COPY TO (lcFile) TYPE DELIMITED
lcContent = FILETOSTR(lcfile)
lcContent="City,State,Zip,Charges"+CHR(13)+CHR(10)+lcContent
loApp = GETOBJECT("","MapPoint.application")
IF llErr
loApp = CREATEOBJECT("MapPoint.application")
ENDIF
loMap = loApp.ActiveMap
ON ERROR &lcErr
lnFields = FCOUNT()
pcType = ""
pcMap = ""
lnMap =-1
lnBy = -1
loSet = loMap.DataSets.ImportData(FULLPATH(lcFile))
DO CASE
CASE pcMap = "Shaded"
lnMap = 1
CASE pcMap = "Pushpin"
lnMap = 5
CASE pcMap = "Circle"
lnMap = 3
OTHERWISE
ENDCASE
DO CASE
CASE pcGroup = "City"
lnBy = 8
CASE pcGroup = "State"
lnBy = 18
CASE pcGroup = "Zip"
lnBy = 12
CASE pcGroup = "County"
lnBy = 17
CASE pcGroup = "Short Zip"
lnBy = 13
CASE pcGroup = "Set By Zoom"
lnBy = -2
OTHERWISE
ENDCASE
DO CASE
CASE pcType = "Shaded"
lnMap = 1
CASE pcMap = "Pushpin"
lnMap = 5
CASE pcMap = "Circle"
lnMap = 3
OTHERWISE
ENDCASE
loset.DisplayDataMap(lnMap,loset.Fields(lnFields),lnBy)
loSet.DataMap.LegendTitle = TRIM(rq_desc)
loApp.Visible = .T.
Hope this helps
MB Software Solutions, LLC wrote:
> On 9/30/2011 12:22 PM, Jarvis, Matthew wrote:
>
>>> See my last reply to Dave. I want to show emphasis where a business
>>>
>> is
>>
>>> getting $$$ from its customers so they can alter their marketing
>>> efforts/region strategies accordingly. I don't need directions from A
>>>
>> to
>>
>>> B.
>>>
>> You aren't paying attention Mike.....<g>
>>
>> What I came up with puts points on a map - I couldn't care less about
>> the directions. From what I gather I am doing EXACTLY what it is you are
>> looking for...
>>
>> Want me to send you an example off list so you can see for yourself?
>>
>
>
> BINGO and YES!!!! Thanks!
>
>
>
Sorry
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
