Hey Everyone, I need your help. It´s about VB.net. How can I make a new query from already selected Features? So far I managed to fill a listbox with the information of the first categorie (e.g. State). Now I want to click on one of the categories to fill another listbox with information about the second categorie (e.g. Postcode). The Table is the same. It just needs to change the row and fill the second listbox. How do I get that? I´m new to programming with VB.net so please explain as simple as possible! 😉 Thanks for your help!! Public Sub New() InitializeComponent() Dim pTable As ITable Dim intLayer As Integer pMxDoc = My.ArcMap.Application.Document pMap = pMxDoc.FocusMap pActiveView = pMap intLayer = mod_state.findLayerByName("S6", pMap) If intLayer = -1 Then MsgBox("There is no layer!") Exit Sub End If pFeatureLayer = pMap.Layer(intLayer) pTable = pFeatureLayer Dim pTableSort As ITableSort = New TableSort With pTableSort .Table = pTable .Fields = "state" .Ascending("state") = True .CaseSensitive("state") = True End With pTableSort.Sort(Nothing) pCursor = pTableSort.Rows Dim pRow As IRow pRow = pCursor.NextRow Dim strState As String strState = "" Me.lst_state_ID.Items.Clear() Do While Not pRow Is Nothing If (pRow.Value(22) <> strstrState) Then strState = pRow.Value(22) Me.lst_KAT_ID.Items.Add(strState) End If pRow = pCursor.NextRow Loop End Sub Private Sub lst_state_ID_Click(sender As System.Object, e As System.EventArgs) Handles lst_state_ID.Click Dim pActiveView As IActiveView Dim pFeatureSelection As IFeatureSelection Dim pQueryFilter As IQueryFilter Dim intLayer As Integer pMxDoc = My.ArcMap.Application.Document pMap = pMxDoc.FocusMap pActiveView = pMap intLayer = mod_state.findLayerByName("S6", pMap) If intLayer = -1 Then MsgBox("There is no Layer!") Exit Sub End If pFeatureLayer = pMap.Layer(intLayer) pFeatureSelection = pFeatureLayer pQueryFilter = New QueryFilter pQueryFilter.WhereClause = "State = '" & Me.lst_state_ID.SelectedItem & "'" pFeatureSelection.Clear() pFeatureSelection.SelectFeatures(pQueryFilter, esriSelectionResultEnum.esriSelectionResultNew, False pActiveView.Refresh() End Sub
... View more
