2013-09-15 6 views

ответ

0

Public Shared Function DoQuery (ByVal ResourceName As String, ByVal layerName As String, ByVal adfMap Как ESRI.ArcGIS.ADF.Web.UI.WebControls.Map, ByVal WherQ As String) Как DataTable

 ' Get the ID of the layer to query 
     Dim layerID As String = GetLayerID(resourceName, layerName, adfMap) 

     Dim _WherQ = "" 
     _WherQ = Replace(WherQ, "where", "") 
     Dim Qf As QueryFilter = New QueryFilter() 

     Qf.MaxRecords = 10000 
     Qf.ReturnADFGeometries = True 
     _WherQ = "OBJECTID>0" 
     Qf.WhereClause = _WherQ 
     ' Get a query functionality from the map resource to query 
     Dim mapResource As IMapResource = adfMap.MapResourceManagerInstance.GetResource(resourceName) 
     Dim queryFunctionality As IQueryFunctionality = TryCast(mapResource.CreateFunctionality(GetType(IQueryFunctionality), Nothing), IQueryFunctionality) 


     Dim dt As System.Data.DataTable 
     dt = queryFunctionality.Query(Nothing, layerID, Qf) 
     Return dt 


    End Function 

 Смежные вопросы

  • Нет связанных вопросов^_^