I can do this and grab the Attribute value from the spatial query (only grabs one value) If featureSet IsNot Nothing AndAlso featureSet.Features.Count > 0 Then
For Each feature As Graphic In featureSet.Features
feature.Symbol = TryCast(LayoutRoot.Resources("PrecinctsFill"), FillSymbol)
graphicsLayer.Graphics.Insert(0, feature)
Dim Test = feature.Attributes("PRECINCTS_")
MessageBox.Show(Test)
Next feature
End If
But I want the value outside the For EAch Loop to put that in another query...I tried this but errors
Dim Test As String
Dim Test2 As String
If featureSet IsNot Nothing AndAlso featureSet.Features.Count > 0 Then
For Each feature As Graphic In featureSet.Features
feature.Symbol = TryCast(LayoutRoot.Resources("PrecinctsFill"), FillSymbol)
graphicsLayer.Graphics.Insert(0, feature)
Test2 = feature.Attributes("PRECINCTS_")
Next feature
End If
Test = Test2