Baldwin County Wetland Conservation Plan - Alabama Department ...

Baldwin County Wetland Conservation Plan Final Summary Document
Dim plyFeatLayer As IFeatureLayer
Dim plyFeatClass As IFeatureClass
Dim plyFeatureCursor As IFeatureCursor
Dim plyFeat As IFeature
Dim plyLayerFields As IFields
Dim plyRateField As IField
Dim plyAcreField As IField
Dim plyTable As ITable
Dim plyRow As IRow
Dim plyAcField As Long
Dim plyRtField As Long
Dim dlbAcre As Double
Dim Fld As Long
Dim i As Long
Dim b As Long
'*********************************************************************************************
*** Set pDoc = ThisDocument Set active map layer.
Set pMap = pDoc.Maps.Item(0)
Set unknFeatLayer = pMap.Layer(1)
Set unknFeatClass = unknFeatLayer.FeatureClass
If unknFeatClass.ShapeType = esriGeometryPolygon Then
Set plyFeatLayer = unknFeatLayer
Else
MsgBox "No Polygon Feature Class Loaded in the Map Document", vbExclamation, "No Polygon Feature
Class"
Exit Sub
End If
Set plyFeatClass = plyFeatLayer.FeatureClass
'*********************************************************************************************
*** Set plyLayerFields = plyFeatClass.Fields Search active
layer’s
Fld = plyFeatClass.Fields.FieldCount - 1 attribute table for
For i = 0 To Fld desired data.
Set plyAcreField = plyFeatClass.Fields.Field(i)
If plyAcreField.Name = "ACRES" Then
Set plyAcreField = plyLayerFields.Field(i)
i = Fld
b = i
Else
b = 0
End If
Next
If b = 0 Then
MsgBox "There is no ACRES Field in the table!", vbOKOnly, "No ACRES Field"
End If
'*********************************************************************************************
*** i = 0 Search active
layer’s
b = 0 attribute table for
For i = 0 To Fld space to record data.
Set plyRateField = plyFeatClass.Fields.Field(i)
If plyRateField.Name = "Acres_Rate" Then
Set plyRateField = plyLayerFields.Field(i)
i = Fld
b = i
Else
24