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