Код: Выделить всё
Dim pMxDoc As IMxDocument
Dim pFLayer As IFeatureLayer
Dim pData As IDataStatistics
Dim pCursor As ICursor
Dim pStatResults As IStatisticsResults
static flag as long
Dim LayerIndex as long
Dim FieldName as string
static ZMax as Variant
if flag = 0 then
FieldName = "AMP"
LayerIndex = 0
Set pMxDoc = ThisDocument
Set pFLayer = pMxDoc.FocusMap.Layer(LayerIndex)
Set pCursor = pFLayer.Search(Nothing, False)
Set pData = New DataStatistics
pData.Field = FieldName
Set pData.Cursor = pCursor
Set pStatResults = pData.Statistics
ZMax = pStatResults.Maximum
Flag = 1
Endif