topic Re: Query layer using another layer (VB.NET) in ArcGIS Explorer Desktop Questions

Query layer using another layer (VB.NET)

BrianLeroux — Wed, 23 Mar 2011 19:05:20 GMT

I am looking to build off of the Query Features sample. Instead of drawing a polygon so select, I am looking to use the polygons inside a shape file. The issue I am having is I am not sure how to identify the contents of a shape file as a point, line, or polygon. I can identify the layer type with the following but not the shape types.

For Each item As MapItem In fold.ChildItems
If TypeOf item Is Layers Then

Any help is appreciated.

Re: Query layer using another layer (VB.NET)

AndreiIvanov — Tue, 29 Mar 2011 16:47:59 GMT

Brian,

to identify the shape type of the layer you need to do it via Table class. Table class has GeometryType property that from the help "Gets the type of geometry that this Table is capable of storing". If you need further help, let me know!

Re: Query layer using another layer (VB.NET)

BrianLeroux — Fri, 24 Jun 2011 16:12:43 GMT

I can't get this layer by query code working. Any help is appreciated.

Dim points As Table = tvwMapItems.SelectedNode.Tag

        Dim poly As Table = tvwMapItems2.SelectedNode.Tag

        'Create a List to store ObjectID's
        Dim objectIDList As List(Of Integer) = New List(Of Integer)()

        'Loop over each area and perform a spatial query to find points
        For Each polyArea As Row In poly.GetRows()

            Dim polyAreaShape As Geometry = polyArea.Geometry
            Dim foundPoints As RowCollection = points.Search(New Filter(polyAreaShape, FilterSearchOptions.Intersects))
            For Each rw As Row In foundPoints
                objectIDList.Add(rw.ObjectID)
            Next
        Next

        ' create the table binding adapter and fill it
        Dim tableBindingAdapter As TableBindingAdapter = New TableBindingAdapter(points)
        tableBindingAdapter.UseColumnAliasNames = True
        tableBindingAdapter.UseCodedValueDomains = True
        tableBindingAdapter.Fill(objectIDList.ToArray())

        ' display the results
        Dim resultsForm As QueryResultsForm = New QueryResultsForm(tableBindingAdapter)
        resultsForm.ShowDialog()