Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim pMxDoc As IMxDocument         Dim pLayer As ILayer         Dim pFLayer As IFeatureLayer         Dim pFeatClass As IFeatureClass         Dim pMap As IMap         Dim pCursor As ICursor         Dim pFSel As IFeatureSelection         Dim pSelSet As ISelectionSet2          pMxDoc = My.ArcMap.Document         pMap = pMxDoc.FocusMap         pLayer = pMxDoc.SelectedLayer         pFLayer = pLayer         pFeatClass = pFLayer.FeatureClass         pCursor = pFeatClass.Update(Nothing, True)         pFSel = pLayer         pSelSet = pFSel.SelectionSet         pSelSet.Update(Nothing, False, pCursor)          Do Until pFSel Is Nothing             pFSel.Value(pFSel.Fields.FindField("Source")) = "Coordinate"             pFSel = pFSel.Next         Loop  End Sub
					
				
			
			
				
			
			
				Solved! Go to Solution.
m_Editor.StartOperation()
feature.Value(feature.Fields.FindField("LotNumberField")) = m_lotNum
feature.Value(4) = 92373
feature.Store()
m_Editor.StopOperation("Attribute update")
 
Public Sub UseUpdateCursor(ByVal featureClass As IFeatureClass)
        Dim queryFilter As IQueryFilter = New QueryFilterClass()
        queryFilter.WhereClause = "Feature = 'Test'"
        queryFilter.SubFields = "Source"
        ' Use IFeatureClass.Update to populate IFeatureCursor.
        Dim updateCursor As IFeatureCursor = featureClass.Update(Nothing, False)
        Dim typeFieldIndex As Integer = featureClass.FindField("queryFilter")
        Try
            Dim feature As IFeature = updateCursor.NextFeature()
            Do While Not feature Is Nothing
                feature.Value(typeFieldIndex) = "Coordinates"
                updateCursor.UpdateFeature(feature)
                feature = updateCursor.NextFeature()
            Loop
        Catch comExc As COMException
            ' Handle any errors that might occur on NextFeature().
        End Try
        ' If the cursor is no longer needed, release it.
        Marshal.ReleaseComObject(updateCursor)
      
    End Sub
					
				
			
			
				
			
			
				
			
			
			
			
			
			
		Dim pEnumFeature As ESRI.ArcGIS.Geodatabase.IEnumFeature Dim pFeature As ESRI.ArcGIS.Geodatabase.IFeature pEnumFeature = My.ArcMap.Editor.EditSelection pEnumFeature.Reset() For i As Integer = 0 To My.ArcMap.Editor.SelectionCount - 1 pFeature = pEnumFeature.Next ' set the values for the feature 'or you could make a loop using ' pFeature = pEnumFeature.Next ' Do until pFeature is Nothing
dim pEditor As ESRI.ArcGIS.Editor.IEditor
pEditor = m_application.FindExtensionByName("esriEditor.Editor")
pEnumFeature = pEditor.EditSelection
					
				
			
			
				
			
			
				
			
			
			
			
			
			
		