Thema Datum  Von Nutzer Rating
Antwort
Rot Listbox Selektion
22.02.2016 17:44:04 Jan
NotSolved
22.02.2016 21:08:31 Gast79499
NotSolved

Ansicht des Beitrags:
Von:
Jan		 Datum:
22.02.2016 17:44:04		 Views:
1321		 Rating:
     
Antwort:
  Ja
Thema:
Listbox Selektion

Hallo zusammen,

 

ich möchte in zwei Listboxen jeweils die Ober- und Unterkategorien einer Tabelle anzeigen lassen. Das ganze soll so funktionieren, dass man in der ersten Listbox die Oberkategorie (zB. Bundesland)  anklickt und dann in der zweiten Listbox die dazugehörige Unterkategorie angezeigt wird (zB. Städte in diesem Bundesland)

Später möchte ich dann noch in einer Combobox zusätzliche Informationen anzeigen lassen (zB. Einwohnderzahl der ausgewählten Stadt, PLZ, usw.)

Es handelt sich dabei übrigens um eine Anwendung für ein GIS.

 

Bisher habe ich es geschafft die erste Listbox zu füllen. Wie schaffe ich es das die Unterkategorie der selektierte Auswahl in der zweiten Listbox angezeigt wird??

 

Für Hilfe wäre ich sehr Dankbar!

 

So sieht mein Code bisher aus:

Public Class frm_selectAttributes
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
 Dim pFeatureLayer As IFeatureLayer

    Public Sub New()
        ' This call is required by the designer.
        InitializeComponent()
        ' Add any initialization after the InitializeComponent() call.

        Dim pTable As ITable
        Dim intLayer As Integer 
        pMxDoc = My.ArcMap.Application.Document
        pMap = pMxDoc.FocusMap
        intLayer = mod_AbschlussAufgabe.findLayerByName("SiB2011", pMap)
        If intLayer = -1 Then
            MsgBox("Es existiert kein Layer mit dem Namen Städte!")
            Exit Sub
        End If
        pFeatureLayer = pMap.Layer(intLayer)
        pTable = pFeatureLayer
Dim pTableSort As ITableSort = New TableSort
        With pTableSort
            .Table = pTable 
            .Fields = "KAT" 
            .Ascending("KAT") = True 
            .CaseSensitive("KAT") = True 
        End With

        pTableSort.Sort(Nothing)
       Dim pCursor As ICursor

        pCursor = pTableSort.Rows
        Dim pRow As IRow
        pRow = pCursor.NextRow '
        Dim strOberKat As String
        strOberKat = "" 
        Me.lst_KAT_ID.Items.Clear() 
        Do While Not pRow Is Nothing 
            If (pRow.Value(22) <> strOberKat) Then 
                strOberKat = pRow.Value(22)
                Me.lst_KAT_ID.Items.Add(strOberKat) 
            End If
            pRow = pCursor.NextRow 
        Loop


    End Sub
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Listbox Selektion
22.02.2016 17:44:04 Jan
NotSolved
22.02.2016 21:08:31 Gast79499
NotSolved