ArcGIS基础代码（2）——Edit Attributes in ArcEngine

最新推荐文章于 2024-10-06 23:35:25 发布

原创最新推荐文章于 2024-10-06 23:35:25 发布 · 2k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#attributes #dialog #table #user

ArcGIS 专栏收录该内容

8 篇文章

订阅专栏

本文介绍了如何在ArcEngine中进行编辑属性的操作，包括`StartEditing`和`StopEditing`子程序，用于开始和结束编辑会话，并提示用户保存更改。此外，还提到了独立表格的编辑，强调了使用更新游标和存储更改的过程，但需要注意MDB表的限制，建议转换为GDB表。

1/if FeatureClass

StartEditing:

      Public Sub StartEditing()
    Dim pWorkspaceEdit As IWorkspaceEdit
    Dim pDoc As IMxDocument
    Dim pMap As IMap
    Dim pFeatureLayer As IFeatureLayer
    Dim pDataset As IDataset

    On Error GoTo StartEditing_err

    ' Check edit conditions before allowing edit to start
    If g_SubAreaLayer Is Nothing Then
        MsgBox "ÇëÏÈÉèÖÃ²éÑ¯Í¼²ã£¡"

        Exit Sub
    End If

   Set pFeatureLayer = g_SubAreaLayer

    Set pDataset = pFeatureLayer.FeatureClass
    If pDataset Is Nothing Then Exit Sub

    ' Start editing, making sure that undo/redo are enabled
    Set pWorkspaceEdit = pDataset.Workspace
    If Not pWorkspaceEdit.IsBeingEdited Then
        pWorkspaceEdit.StartEditing True
        pWorkspaceEdit.EnableUndoRedo
    End If

Exit Sub

StartEditing_err:
    MsgBox err.Description
End Sub

FeatureCursor.NextFeature

Feature.Store

StopEditing

Public Sub StopEditing()
    Dim pFeatureLayer As IFeatureLayer
    Dim pDataset As IDataset
    Dim pWorkspaceEdit As IWorkspaceEdit
    Dim pDoc As IMxDocument
    Dim pMap As IMap
    Dim pAV As IActiveView

    Dim bHasEdits As Boolean
    Dim bSave As Boolean

    On Error GoTo StopEditing_err

    ' Check edit conditions before allowing edit to stop

    Set pFeatureLayer = g_SubAreaLayer
    Set pDataset = pFeatureLayer.FeatureClass
    If pDataset Is Nothing Then Exit Sub

    ' If the current document has been edited then prompt the user to save changes
    Set pWorkspaceEdit = pDataset.Workspace
    If pWorkspaceEdit.IsBeingEdited Then
        pWorkspaceEdit.HasEdits bHasEdits
        If bHasEdits = True Then
            If vbYes = MsgBox("Do you want to save your edits?", vbQuestion + vbYesNoCancel, "Question Dialog") Then
                bSave = True
            End If
        End If
        pWorkspaceEdit.StopEditing bSave
    End If

    Set pDoc = m_App.Document

    Set pAV = pDoc.ActiveView
    pAV.Refresh

Exit Sub

StopEditing_err:
    MsgBox err.Description
End Sub

2/StandaloneTable

不需要StartEditing

只需得到Update Cursor

然后IRow.Store

Dim pTabCollection As IStandaloneTableCollection
Dim pStTable As IStandaloneTable
Set pTabCollection = pMap

Set pStTable = pTabCollection.StandaloneTable(0)
Set pCS = pStTable.Table.Update(Nothing, True)

但要注意普通MDB Table不能编辑

应该先转成GDB Table