Всем добрый день!
Я пытаюсь вывести все атрибуты выбранного слоя в виде таблицы, и в общем удалось.
код таков:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim dataset As System.Data.DataSet = New System.Data.DataSet()
Dim func_enum As IEnumerable = Map1.GetFunctionalities()
For Each gisfunctionality As ESRI.ArcGIS.ADF.Web.DataSources.IGISFunctionality In func_enum
Dim gisresource As ESRI.ArcGIS.ADF.Web.DataSources.IGISResource = gisfunctionality.Resource
Dim supported As Boolean = gisresource.SupportsFunctionality(GetType(ESRI.ArcGIS.ADF.Web.DataSources.IQueryFunctionality))
If supported Then
Dim qfunc As ESRI.ArcGIS.ADF.Web.DataSources.IQueryFunctionality = _
CType(gisresource.CreateFunctionality(GetType(ESRI.ArcGIS.ADF.Web.DataSources.IQueryFunctionality), Nothing), ESRI.ArcGIS.ADF.Web.DataSources.IQueryFunctionality)
Dim layerIDs As String()
Dim layerNames As String()
qfunc.GetQueryableLayers(Nothing, layerIDs, layerNames)
Dim queryFilter As New ESRI.ArcGIS.ADF.Web.QueryFilter
queryFilter.MaxRecords = 50
For i = 0 To layerIDs.Length - 1
If layerNames(i) = ddlActiveLayer.SelectedItem.Text Then
dataset.Tables.Add(qfunc.Query(Nothing, layerIDs(i), queryFilter))
Exit For
End If
Next
End If
Next gisfunctionality
GridView1.DataSource = dataset.Tables(0).DefaultView
GridView1.DataBind()
fpAttributeTable.Visible = True
End Sub
А вот как мне сделать так чтобы была возможность выбора необходимых атрибутов и отобразить их на карте в Map1 например с помощью подсвечивания определенным цветом!?
