Archived Forums

Dim i As Integer             'Loop controller.
Dim varMax As Variant   'Largest value found so far.
Dim varValues As Variant

    varMax = Null         'Initialize to null
    varValues = Array( [ET_STATION])

    For i = LBound(varValues) To UBound(varValues)
        If IsNumeric(varValues(i)) Or IsDate(varValues(i)) Then
            If varMax >= varValues(i) Then
                'do nothing
            Else
                varMax = varValues(i)
            End If
        End If
    Next

    MaxOfList = varMax

Public Sub TableSort()
    Dim pMxApp As IMxApplication
    Dim pMxDoc As IMxDocument
    Dim pFeatureLayer As IFeatureLayer
    Dim pFeatureClass As IFeatureClass
    Dim pCursor As ICursor
    Dim pTableSort As ITableSort
    Dim pTable As ITable
    Dim pRow As IRow
    Dim sFieldName As String
    
    sFieldName = "SQMI"
    Set pMxApp = Application
    Set pMxDoc = ThisDocument
    Set pFeatureLayer = pMxDoc.FocusMap.Layer(0)
    Set pFeatureClass = pFeatureLayer.FeatureClass
    Set pTable = pFeatureClass
    Set pTableSort = New TableSort
    Set pTableSort.Table = pTable
    pTableSort.Fields = sFieldName
    pTableSort.Ascending(sFieldName) = False
    pTableSort.Sort pMxApp.Display.CancelTracker
        
    'Create cursor of sorted rows
    Set pCursor = pTableSort.Rows
    Set pRow = pCursor.NextRow
    Debug.Print pRow.Value(pRow.Fields.FindField(sFieldName))
End Sub

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 = "Z"
	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 pCursor = pFLayer.Search(Nothing, False)
	Set pData.Cursor = pCursor
	Set pStatResults = pData.Statistics
	
	ZMax = pStatResults.Maximum

	Flag = 1
endif
__esri_field_calculator_splitter__
ZMax

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 = "Z"
	LayerIndex = 0

	'ThisDocument refers to the current ArcMap Document (the MXD)
	Set pMxDoc = ThisDocument
	'Gets the first layer in the table of content. Assumes that it is a shapefile with your data
	Set pFLayer = pMxDoc.FocusMap.Layer(LayerIndex)
	'Return a cursor to all the features in the layer
	Set pCursor = pFLayer.Search(Nothing, False)
  
	Set pData = New DataStatistics
	'Assigns the field to be analyzed with statistics. The field is a field in the attribute table of the layer. In this case a field with Z values
	pData.Field = FieldName
	'passes the cursor to the DataStatistics object. The DatatStatistics object will take care to scroll through the features/rows in the attribute table and perform the statistics
	Set pData.Cursor = pCursor
  	
	'Retun the statistics
	Set pStatResults = pData.Statistics
	
	'Assigns to ZMax the maximum found value from the field named "Z"
	ZMax = pStatResults.Maximum

	'The Flag variable is static and will persist till the end of the calculations. It will stop the calculator to perform this statistics every time the code is called for each row. The statistics need only to be performed once.
	Flag = 1
endif
__esri_field_calculator_splitter__
ZMax