jtslbarnes

VBA ArcGIS 9.2 Desktop QueryFilter not returning more than 100 selections

Discussion created by jtslbarnes on Jun 21, 2012
Latest reply on Jun 21, 2012 by FZhang-esristaff
  • Comment • 7
I'm running a query that selects sewer lines form a user selected point to the sewer treatment plant.

It works perfectly unless the sewer line from selection to treatment plant has more than 100 segments.

In a nutshell QueryFilter won't select the next line after it reaches 100 selected segments.

Any ideas?

'Set the sanitary layer variable
        Set pFLayer = pMap.Layer(indVal)
            pFLayer.Selectable = True
        Set myVal = pMap.Layer(indVal)

        'Setup the query filter
        Set pQFilter = New QueryFilter
            pQFilter.WhereClause = "LINE_ID = '" & idVal & "' And LINE_SECTION >= " & secVal & " Order By LINE_SECTION"
           
           
        'Get the selection for the layer
        Set pSelection = myVal
            'pSelection.Clear
           
        'Set the selection per the QueryFilter
            pView.PartialRefresh esriViewGeoSelection, Nothing, Nothing
            pSelection.SelectFeatures pQFilter, esriSelectionResultNew, False
            pView.PartialRefresh esriViewGeoSelection, Nothing, Nothing
      
If myFeat.Value(myFeat.Fields.FindField("LINE_SECTION")) = 0 Then Exit Sub

    myCounter = 0
   
Do Until myCounter = 15
   
        'Get the selection set in preparation to loop through the set
        Set pSelectionSet = pSelection.SelectionSet
            pSelectionSet.Search Nothing, False, pFeatureCursor
        Set pFeature = pFeatureCursor.NextFeature
       
        i = 0
       
        'Loop through the set and collect the ids aaString is the final id, pStmains is the array with all the id's
        Do While Not pFeature Is Nothing
           
            If IsNull(pFeature.Value(pFeature.Fields.FindField("SUB"))) = False Then
                Sub1 = pFeature.Value(pFeature.Fields.FindField("SUB"))
                SubSec = pFeature.Value(pFeature.Fields.FindField("SUB_SEC"))
            End If
           
            aaString = pFeature.Value(pFeature.Fields.FindField("Upstreamno"))
            abString = pFeature.Value(pFeature.Fields.FindField("Downstream"))
            lCounter = pFeature.Value(pFeature.Fields.FindField("Length"))

               
                pStmains(i) = aaString & "  to  " & abString & "         ~ " & lCounter
                stCount = stCount + 1
            i = i + 1
            Set pFeature = pFeatureCursor.NextFeature
           
        Loop
       
        'Setup the query filter
        'Set pQFilter = New QueryFilter
            'pQFilter.WhereClause = "LINE_TURN = '" & aaString & "'"
            pQFilter.WhereClause = "LINE_ID = '" & Sub1 & "' And LINE_SECTION >= " & SubSec & " Order By LINE_SECTION"
           
        'Get the selection for the layer
        'Set pSelection = myVal
            'pSelection.Clear
           
        'Set the selection per the QueryFilter
            pView.PartialRefresh esriViewGeoSelection, Nothing, Nothing
            pSelection.SelectFeatures pQFilter, esriSelectionResultAdd, False
            pView.PartialRefresh esriViewGeoSelection, Nothing, Nothing

myCounter = myCounter + 1

Loop

Outcomes