【已测试通过】：：ArcGISServer简单查询并高亮显示

简单查询并高亮显示代码（vb.net）：：测试通过

.MapResourceManager属性中增加一个名为Selection的MapResource，并将它移动到编号为0的位置，即显示在所有MapResource最上面。





如图添加相关控件：





以下是vb.net代码：（参考Flyingis C＃代码http://flyingis.cnblogs.com/）

在Button1_Click添加如下代码

Dim resource_index As Integer = 1

Dim targetlayername As String = "Country"

Dim datatable As System.Data.DataTable = Nothing

'直接获取MapResourceName为world的MapFunctionality，它的编号为1

Dim mf As ESRI.ArcGIS.ADF.Web.DataSources.IMapFunctionality = Map1.GetFunctionality(resource_index)

'先得到functionality，再获取resource

Dim gisresource As ESRI.ArcGIS.ADF.Web.DataSources.IGISResource = mf.Resource

Dim supported As Boolean = gisresource.SupportsFunctionality(GetType(ESRI.ArcGIS.ADF.Web.DataSources.IQueryFunctionality))

If supported = True Then

Dim qfunc As ESRI.ArcGIS.ADF.Web.DataSources.IQueryFunctionality

qfunc = gisresource.CreateFunctionality(GetType(ESRI.ArcGIS.ADF.Web.DataSources.IQueryFunctionality), Nothing)

Dim layerIds() As String = Nothing

Dim layerNames() As String = Nothing

qfunc.GetQueryableLayers(Nothing, layerIds, layerNames)

Dim spatialfilter As New ESRI.ArcGIS.ADF.Web.SpatialFilter()

spatialfilter.ReturnADFGeometries = False

spatialfilter.MaxRecords = 1000

spatialfilter.WhereClause = TextBox2.Text

datatable = qfunc.Query(Nothing, layerIds(3), spatialfilter)

End If

If Not datatable Is Nothing Then

Dim ds As New System.Data.DataSet()

ds.Tables.Add(datatable)

TreeViewPlus1.ShowClearAllButton = False

'//将结果绑定到TreeViewPlus控件上

TreeViewPlus1.BindToDataSet(ds)

TreeViewPlus1.Nodes(0).Expanded = True

End If

'查询结果高亮显示

'重新获得Map1控件所有的functionality

Dim getfunc As IEnumerable = Map1.GetFunctionalities()

Dim gResource As ESRI.ArcGIS.ADF.Web.DataSources.Graphics.MapResource = Nothing

Dim gFunc As IGISFunctionality = Nothing

For Each gFunc In getfunc

'找到名为"Selection"的MapResource

If gFunc.Resource.Name = "selection" Then

'down cast到ESRI.ArcGIS.ADF.Web.DataSources.Graphics.MapResource

gResource = gFunc.Resource

End If

Next

If gResource Is Nothing Then

Return

End If

Dim gLayer As ESRI.ArcGIS.ADF.Web.Display.Graphics.ElementGraphicsLayer = Nothing

Dim dTable As System.Data.DataTable = Nothing

For Each dTable In gResource.Graphics.Tables

If TypeOf dTable Is ESRI.ArcGIS.ADF.Web.Display.Graphics.ElementGraphicsLayer Then

gLayer = dTable

End If

Next

If gLayer Is Nothing Then

gLayer = New ESRI.ArcGIS.ADF.Web.Display.Graphics.ElementGraphicsLayer()

gResource.Graphics.Tables.Add(gLayer)

End If

'清除已有数据

gLayer.Clear()

Dim drs As Data.DataRowCollection = datatable.Rows

Dim shpind As Integer = -1

Dim i As Integer = 0

For i = 0 To (datatable.Columns.Count - 1)

If datatable.Columns(i).DataType Is GetType(ESRI.ArcGIS.ADF.Web.Geometry.Geometry) Then

shpind = i

End If

Next

'Throw an exception

Dim ex0 As New Exception("No geometry available in datatable")

Try

Dim dr As Data.DataRow

For Each dr In drs

Dim geom As ESRI.ArcGIS.ADF.Web.Geometry.Geometry = dr(shpind)

'创建一个GraphicElement

Dim ge As New ESRI.ArcGIS.ADF.Web.Display.Graphics.GraphicElement(geom, System.Drawing.Color.Yellow)

ge.Symbol.Transparency = 50.0

'将GraphicElement添加到ElementGraphicsLayer中

gLayer.Add(ge)

Next

Catch ex As Exception

Throw ex

End Try

If (Map1.ImageBlendingMode = ImageBlendingMode.WebTier) Then

Map1.Refresh()

ElseIf (Map1.ImageBlendingMode = ImageBlendingMode.Browser) Then

'只刷新Graphics Resource

Map1.RefreshResource(gResource.Name)

End If

效果图