Hi all,

I'm still looking for help using the displayDataMap function. Maybe some sample code I've tried make the problem more clear:

Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim objDataSets As MapPoint.DataSets
        Dim objDataSet As MapPoint.DataSet
        Dim zDataSource As String
        Dim ls_field(15, 1) As Object

        Dim ls_cValues() As String = {"NSTR", "STRT", "FRTG+", "FRTG-", "ROUT"}
        Dim ls_cLabels() As String = {"L1", "L2", "L3", "L4", "L5"}
        Dim ls_cNames() As String = {"NichtBegonnen", "Begonnen", "Abgeschlossen", "Fertig", "Geroutet"}
        Dim ll_cSymbols() As Integer = {1, 2, 3, 4, 5}
        Dim objField As MapPoint.Field

        ls_field(0, 0) = 1
        ls_field(0, 1) = MapPoint.GeoFieldType.geoFieldData

        ls_field(1, 0) = 2
        ls_field(1, 1) = MapPoint.GeoFieldType.geoFieldData

        ls_field(2, 0) = 3
        ls_field(2, 1) = MapPoint.GeoFieldType.geoFieldName

        ls_field(3, 0) = 4
        ls_field(3, 1) = MapPoint.GeoFieldType.geoFieldInformation

        ls_field(4, 0) = 5
        ls_field(4, 1) = MapPoint.GeoFieldType.geoFieldAddress1

        ls_field(5, 0) = 6
        ls_field(5, 1) = MapPoint.GeoFieldType.geoFieldCity

        ls_field(6, 0) = 7
        ls_field(6, 1) = MapPoint.GeoFieldType.geoFieldPostal1

        ls_field(7, 0) = 8
        ls_field(7, 1) = MapPoint.GeoFieldType.geoFieldLatitude

        ls_field(8, 0) = 9
        ls_field(8, 1) = MapPoint.GeoFieldType.geoFieldLongitude

        ls_field(9, 0) = 10
        ls_field(9, 1) = "Arbeitszeit"

        ls_field(10, 0) = 11
        ls_field(10, 1) = MapPoint.GeoFieldType.geoFieldData

        ls_field(11, 0) = 12
        ls_field(11, 1) = MapPoint.GeoFieldType.geoFieldData

        ls_field(12, 0) = 13
        ls_field(12, 1) = MapPoint.GeoFieldType.geoFieldData

        ls_field(13, 0) = 14
        ls_field(13, 1) = MapPoint.GeoFieldType.geoFieldData

        ls_field(14, 0) = 15
        ls_field(14, 1) = MapPoint.GeoFieldType.geoFieldData

        ls_field(15, 0) = 16
        ls_field(15, 1) = MapPoint.GeoFieldType.geoFieldData

        zDataSource = "C:\tmp\testadressen.txt"
        objDataSets = AxMappointControl1.ActiveMap.DataSets
        objDataSet = objDataSets.ImportData(zDataSource, ls_field)

        objField = objDataSet.Fields("frtscode")

        objDataSet.DisplayDataMap(MapPoint.GeoDataMapType.geoDataMapTypeMultipleSymbol, _
                                    objField, MapPoint.GeoShowDataBy.geoShowByLatLong, _
                                    MapPoint.GeoCombineDataBy.geoCombineByNone, _
                                    MapPoint.GeoDataRangeType.geoRangeTypeDefault, _
                                    MapPoint.GeoDataRangeOrder.geoRangeOrderDefault, -1, 5, ls_cValues, ls_cNames, objField, ls_cLabels, ll_cSymbols)

This code runs until the displayDataMap function is called. Then an argument exception raises. Have played around with the arguments but no luck showing a map with 5 different symbols depending on the field # 16 ("frtscode") which contains 5 different values.
Any help?

TIA

Chris Werner

Hi Chris,

Did you figure this out?

Eric

Hi Eric,

yes, got it to work in VB. After changing the following
declarations:

Code:

Dim ls_cValues() As String = {"NSTR", "STRT", "FRTG+", "FRTG-", "ROUT"}
Dim ls_cLabels() As String = {"L1", "L2", "L3", "L4", "L5"}
Dim ls_cNames() As String = {"NichtBegonnen", "Begonnen", "Abgeschlossen", "Fertig", "Geroutet"}
Dim ll_cSymbols() As Integer = {1, 2, 3, 4, 5}

into Array of Object and using

Code:

Dim missing As Object = System.Reflection.Missing.Value

for unused arguments it works. Unfortunately my final goal
to use DisplayDataMap() in another development environment
(Sybase PowerBuilder) fails to work. It seems that there is no
apropriate data type there. So I go along the addPushpin()
way.

BTW, I'd like to layout code snippets as code in my posts
but have no idea how to do that. Using <code> </code>
markers seems to be the wrong approach.

Kind regards,
Chris Werner

Use the square brackets, I edited your post so you can see.

Eric

Hi Eric,

I got it, 1000 thanks for the tip!

Code:

for i = 1 to 1000
    thanks2("Eric Frost")
next

Kind regards,
Chris Werner

That's too many. 1 or half of one will do

In any case, I want to convert this whole forum to vBulletin and then everything will change (for the better).

The only real concern will be the old links, I'll be checking the logs and tackle them (edit old posts) as they appear.

Eric