MapForums

    Private Sub ImportDataTableInvoke(ByVal DataTable As DataTable)
        mobjMapPoint.NewMap(GeoMapRegion.geoMapEurope)
        mobjMapPoint.Visible = False
        Try
            ' TempFile
            Dim stmTempFile As New IO.StreamWriter(mstrFilename, False)
            ' Headings
            stmTempFile.WriteLine("Name, PostcodeSector")
            ' Loop though the record set
            For Each rowDataRow As DataRow In DataTable.Rows
                stmTempFile.WriteLine(CStr(rowDataRow("Territory")) & "," & CStr(rowDataRow("PostcodeSector")).ToLower)
            Next
            ' Close file
            stmTempFile.Close()

            Dim Fields(,) As Object = { _
                {"Name", GeoFieldType.geoFieldTerritory}, _
                {"PostcodeSector", GeoFieldType.geoFieldPostal3} _
                                      }

            Dim objDataset As MapPoint.DataSet

            objDataset = mobjMapPoint.ActiveMap.DataSets.ImportTerritories(mstrFilename, Fields, GeoCountry.geoCountryUnitedKingdom, GeoDelimiter.geoDelimiterComma, )
            ' Set the map style
            mobjMapPoint.ActiveMap.MapStyle = GeoMapStyle.geoMapStyleData
            ' Zoom in
            objDataset.ZoomTo()
            ' Success 
            mblnImportFailed = False
        Catch ex As Exception
            Debug.WriteLine(ex.ToString)
            mblnImportFailed = True
        End Try
    End Sub

objDataset = mobjMapPoint.ActiveMap.DataSets.ImportTerritories(mstrFilename, System.Reflection.Missing.Value, GeoCountry.geoCountryUnitedKingdom, GeoDelimiter.geoDelimiterComma, )