Dim pMyField3 As IFieldEdit
Set pMyField3 = New Field
With pMyField3
.Name = “Topo”
.Type = esriFieldTypeDouble
End With
Dim pTable3 As ITable
Set pTable3 = pFeatureLayer
pTable3.AddField pMyField3
Dim pMyField3 As IFieldEdit
Set pMyField3 = New Field
With pMyField3
.Name = “Topo”
.Type = esriFieldTypeDouble
End With
Dim pTable3 As ITable
Set pTable3 = pFeatureLayer
pTable3.AddField pMyField3
pFeature.Value(pFeature.Fields.FindField(“Topo”)) = 3
pFeature.Store