Edit Attributes in User Form

Question

I am trying to convert my old ArcGIS 9.3 (VBA) code to ArcGIS 10 using Visual Basic 2008 Express Edition. So far I have sucessfully created an pop-up window that displays the attributes of a selected feature in text boxes on the form.

---

I added a reference to the editor and made some adjustments to my code. My form still crashes when I try to press the button. Am I missing something or am I just referencing the attribute table in correctly?

THANKS!!!

Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUpdate.Click
    pMxDoc = My.ArcMap.Document
    Dim pMap As IMap
    pMap = pMxDoc.FocusMap
    Dim pFLayer As IFeatureSelection
    Dim Count As Integer

    'Get a reference to the editor.
    Dim editorUID As ESRI.ArcGIS.esriSystem.UID
    editorUID = New ESRI.ArcGIS.esriSystem.UID
    editorUID.Value = "esriEditor.Editor"
    Dim editor As IEditor
    editor = My.ArcMap.Application.FindExtensionByCLSID(editorUID)

    'Get FeatureLayer
    pFLayer = pMap.Layer(Count)
    Dim pFCursor As IFeatureCursor = Nothing
    pFLayer.SelectionSet.Search(Nothing, False, pFCursor)
    Dim pF As IFeature
    pF = pFCursor.NextFeature

    'Get Dataset from FeatureLayer
    Dim pEditDataset As IDataset
    pEditDataset = pFLayer

    'If not editing, start editing dataset's Workspace
    If editor.EditState <> esriEditState.esriStateEditing Then
        editor.StartEditing(pEditDataset.Workspace)
    End If

    'Initialize first (only) feature
    Dim pFeat As IFeature
    pFeat = pFLayer.NextFeature

    'Update attributes with user input
    pFeat.Value(pFeat.Fields.FindField("YEAR")) = txtPrjYear.Text
    pFeat.Value(pFeat.Fields.FindField("PROJECTYPE")) = txtPrjType.Text
    pFeat.Value(pFeat.Fields.FindField("LOCATION")) = txtLocation.Text
    pFeat.Value(pFeat.Fields.FindField("AGENCY")) = txtAgency.Text
    pFeat.Value(pFeat.Fields.FindField("DESCRIPTION")) = txtDescrip.Text
    pFeat.Value(pFeat.Fields.FindField("COST")) = txtCost.Text
    pFeat.Value(pFeat.Fields.FindField("DATEEDITED")) = txtDate.Text
    pFeat.Value(pFeat.Fields.FindField("USEREDITED")) = txtUser.Text

    'Stop editing and save edits
    editor.StopEditing(True)

    'Refresh map
    pMxDoc.ActiveView.Refresh()

    'Close form
    Me.Close()
End Sub

Answer 1

You said: "Thanks, eric, I put the try/catch where you said and a break at the message after catch and I recieved this error: "Public member 'FindExtensionByName' on type 'MxDocument' not found."...I assume this is in my code" editor = My.ArcMap.Document.FindExtensionByName("ESRI Object Editor")"

Try replacing it with:

editor = ArcMap.Application.FindExtensionByName("esriEditor.Editor")

Answer 2

Have you made reference to the editor, e.g.?

'Get a reference to the editor.
    Dim uid As UID
    uid = New UIDClass()
    uid.Value = "esriEditor.Editor"
    Dim editor As IEditor
    editor = CType(m_application.FindExtensionByCLSID(uid), IEditor)

Answer 3

C# code to find a FeatureLayer by its name, per your comment below.

public IFeatureLayer FindLayer(string aLayerName)
    {
        int i = 0;
        IMap pmap = ArcMap.Document.ActiveView.FocusMap;
        while (i <= pmap.LayerCount - 1)
        {
            if ((pmap.get_Layer(i).Name.ToUpper()) == (aLayerName.ToUpper()))
                return pmap.get_Layer(i) as IFeatureLayer;
            i++;
        }
        return null;
    }

Answer 4

    Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUpdate.Click
    Try


        Dim pMxDocument As IMxDocument
        Dim pMap As IMap
        Dim pEnumLayer As IEnumLayer
        Dim pFeatureSelection As IFeatureSelection
        Dim player As ILayer

        'Get a reference to the editor.
        Dim editor As IEditor
        editor = My.ArcMap.Application.FindExtensionByName("esriEditor.Editor")


        pMxDocument = My.ArcMap.Application.Document
        pMap = pMxDocument.FocusMap
        pEnumLayer = pMap.Layers
        pEnumLayer.Reset()
        player = pEnumLayer.Next


        Do While Not player Is Nothing
            If TypeOf player Is IFeatureLayer Then
                Dim pFLayer As IFeatureLayer
                pFLayer = player
                pFeatureSelection = pFLayer
                If pFeatureSelection.SelectionSet.Count <> 0 Then

                    Dim pFCursor As IFeatureCursor = Nothing
                    pFeatureSelection.SelectionSet.Search(Nothing, False, pFCursor)
                    Dim pFeature As IFeature
                    pFeature = pFCursor.NextFeature
                    If Not pFeature Is Nothing Then
                        'Get Dataset from FeatureLayer
                        Dim pEditDataset As IDataset
                        pEditDataset = pFLayer

                        'If not editing, start editing dataset's Workspace
                        If editor.EditState <> esriEditState.esriStateEditing Then
                            editor.StartEditing(pEditDataset.Workspace)
                        End If


                        'Get SelectionSet
                        Dim pSelSet As ISelectionSet
                        pSelSet = GetSelection(pFLayer)

                        'Get FeatureCursor from SelectionSet
                        pSelSet.Search(Nothing, True, pFCursor)

                        'Initialize first (only) feature
                        pFeature = pFCursor.NextFeature

                        'Update attributes with user input
                        pFeature.Value(pFeature.Fields.FindField("YEAR")) = txtPrjYear.Text
                        pFeature.Value(pFeature.Fields.FindField("PROJECTYPE")) = txtPrjType.Text
                        pFeature.Value(pFeature.Fields.FindField("LOCATION")) = txtLocation.Text
                        pFeature.Value(pFeature.Fields.FindField("AGENCY")) = txtAgency.Text
                        pFeature.Value(pFeature.Fields.FindField("DESCRIPTION")) = txtDescrip.Text
                        pFeature.Value(pFeature.Fields.FindField("COST")) = txtCost.Text
                        pFeature.Value(pFeature.Fields.FindField("DATEEDITED")) = txtDate.Text
                        pFeature.Value(pFeature.Fields.FindField("USEREDITED")) = txtUser.Text

                        'Store changes to feature
                        pFeature.Store()

                    End If
                End If
            End If
            player = pEnumLayer.Next
        Loop

        'Stop editing and save edits
        editor.StopEditing(True)


        'Close form
        Me.Close()

    Catch ex As Exception
        Windows.Forms.MessageBox.Show(ex.ToString, "error")


    End Try
End Sub

Public Function GetSelection(ByVal pFeatLyr As IFeatureLayer) As ISelectionSet

    'Gets selection of feature layer and returns selection set

    'Initialize the required variables
    pMxDoc = My.ArcMap.Application.Document
    Dim pFeatSel As IFeatureSelection
    pFeatSel = pFeatLyr

    GetSelection = pFeatSel.SelectionSet

End Function