Baldwin County Wetland Conservation Plan - Alabama Department ...

Baldwin County Wetland Conservation Plan Final Summary Document
Set pSpatialFilter.Geometry = pGeometry
pFeatureSelection1.SelectFeatures pSpatialFilter, esriSelectionResultAdd, False
Set pFeature = pFeatureCursor1.NextFeature
Loop
'*********************************************************************************************
***
Dim pCursor As IFeatureCursor Searches for data storage
Dim pFeature2 As Ifeature space.
Dim pSelectionSet As ISelectionSet
Dim pField As IField
Dim pFeatureClass As IFeatureClass
Dim pLayerFields As IFields
Dim pModelField As IField
Dim pTable As ITable
Dim pRow As IRow
Dim pModelField2 As Long
Dim Fld As Long
Dim i As Long
Dim b As Long
Set pSelectionSet = pFeatureSelection1.SelectionSet
pSelectionSet.Search Nothing, False, pCursor
Set pFeatureClass = pFeatureLayer2.FeatureClass
i = 0
b = 0
Set pLayerFields = pFeatureClass.Fields
Fld = pFeatureClass.Fields.FieldCount - 1
For i = 0 To Fld
Set pModelField = pFeatureClass.Fields.Field(i)
If pModelField.Name = "fire" Then
Set pModelField = pLayerFields.Field(i)
i = Fld
b = i
Else
b = 0
End If
Next
If b = 0 Then
MsgBox "There is no fire Field in the table!", vbOKOnly, "No model Field"
Exit Sub
End If
'*********************************************************************************************
***
Set pFeature2 = pCursor.NextFeature Assigns values
Set pTable = pFeature2.Table accordingly.
pModelField2 = pTable.FindField(pModelField.Name)
Do While Not (pFeature2 Is Nothing)
Set pRow = pTable.GetRow(pFeature2.OID)
pRow.Value(pModelField2) = 1
pRow.Store
Set pFeature2 = pCursor.NextFeature
Loop
pMxDoc.ActiveView.Refresh
End Sub
'*********************************************************************************************
***
22