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
|