Thanks Morten....really appreciate it....just looking for soem guidance....I think I will get it sooner or later....HAVE A GREAT WEEKEND...So something along this lines??....I am sorry fro the stupid questions....I am really lost here no kidding....I got a simple buffer working but again that was from the example and a mouse click, NOT using teh result of another query...I am trying to get the spatial filter and Buffer working from the result of the Parcel Search...For now the Spatial.....I think this is what you are refering to.....1. Push the result of the first query to another Method2. Once in that method do some sort of spatial query, binding to a grid of some sort...WHAT I HAVE i think is completly wrong but Just cant see where I would specify witin a specific feature or layer....I dont care about highlighting the other results....just getting them into a results panel of some sort will doTHANKS AGAIN Private Sub ExecutePIDButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
' QUERY NUMBER 1
'Dim queryTask As New QueryTask("http://sampleserver1.arcgisonline.com/ArcGIS/rest/services/" & "Demographics/ESRI_Census_USA/MapServer/5")
Dim queryTask As New QueryTask("http://gis.logis.org/arcgis/rest/services/MG_Test_WGS84/MapServer/8")
AddHandler queryTask.ExecuteCompleted, AddressOf QueryTaskFindPID_ExecuteCompletedSearch
AddHandler queryTask.Failed, AddressOf QueryTaskFindPID_FailedSearch
'' QUERY NUMBER 2
Dim queryTask2 As New QueryTask("http://gis.logis.org/arcgis/rest/services/MG_Test_WGS84/MapServer/2")
AddHandler queryTask2.ExecuteCompleted, AddressOf QueryTask_ExecuteCompletedSearch
AddHandler queryTask2.Failed, AddressOf QueryTaskFindPID_FailedSearch
'' PUSH TO OTEHR METHOD TO DO SPATIAL QUERY
Dim queryTaskSpatialQuery As New QueryTask("http://gis.logis.org/arcgis/rest/services/MG_Test_WGS84/MapServer/2")
AddHandler queryTaskSpatialQuery.ExecuteCompleted, AddressOf QueryTask_ExecuteCompletedSpatialQuery
AddHandler queryTaskSpatialQuery.Failed, AddressOf QueryTaskFindPID_FailedSpatialQuery
Dim query As New ESRI.ArcGIS.Client.Tasks.Query()
query.OutFields.Add("*")
query.Text = FindPID.Text
query.ReturnGeometry = True
query.OutSpatialReference = MyMap.SpatialReference
queryTask.ExecuteAsync(query)
End Sub Private Sub QueryTask_ExecuteCompletedSpatialQuery(ByVal sender As Object, ByVal args As ESRI.ArcGIS.Client.Tasks.QueryEventArgs)
'' SPATIAL QUERY
Dim queryTaskSpatial As New QueryTask("http://gis.logis.org/arcgis/rest/services/MG_Test_WGS84/MapServer/5")
AddHandler queryTaskSpatial.ExecuteCompleted, AddressOf QueryTask_ExecuteCompletedFINALBUFFER
AddHandler queryTaskSpatial.Failed, AddressOf QueryTask_FailedSearch
' Bind data grid to query results
Dim resultFeaturesBinding As New Binding("LastResult.Features")
resultFeaturesBinding.Source = queryTaskSpatial
QueryDetailsDataGrid.SetBinding(DataGrid.ItemsSourceProperty, resultFeaturesBinding)
Dim querySpatial As New ESRI.ArcGIS.Client.Tasks.Query()
querySpatial.OutFields.Add("*")
querySpatial.ReturnGeometry = True
querySpatial.Geometry = args.Geometry
querySpatial.OutSpatialReference = MyMap.SpatialReference
queryTaskSpatial.ExecuteAsync(querySpatial)
End Sub
Private Sub QueryTaskFindPID_FailedSpatialQuery(ByVal sender As Object, ByVal args As TaskFailedEventArgs)
MessageBox.Show("Query failed: " & args.Error.Message)
End Sub
Private Sub QueryTask_ExecuteCompletedFINALBUFFER(ByVal sender As Object, ByVal args As ESRI.ArcGIS.Client.Tasks.QueryEventArgs)
Dim featureSet As FeatureSet = args.FeatureSet
If featureSet Is Nothing OrElse featureSet.Features.Count < 1 Then
MessageBox.Show("No features retured from query")
Return
End If
Dim graphicsLayer As GraphicsLayer = TryCast(MyMap.Layers("MySelectionGraphicsLayer"), GraphicsLayer)
If featureSet IsNot Nothing AndAlso featureSet.Features.Count > 0 Then
For Each feature As Graphic In featureSet.Features
feature.Symbol = TryCast(LayoutRoot.Resources("ResultsFillSymbol"), FillSymbol)
graphicsLayer.Graphics.Insert(0, feature)
Next feature
ResultsDisplay.Visibility = Visibility.Visible
End If
End Sub
Private Sub QueryTask_Failed(ByVal sender As Object, ByVal args As TaskFailedEventArgs)
MessageBox.Show("Query failed: " & args.Error.ToString())
End Sub
