Try Dim mxDocument As IMxDocument = DirectCast(m_application.Document, IMxDocument) Dim map As IMap = mxDocument.FocusMap Dim standaloneTableCollection As IStandaloneTableCollection = DirectCast(map, IStandaloneTableCollection) Dim standAloneTable As IStandaloneTable = standaloneTableCollection.StandaloneTable(0) Dim table As ITable = standAloneTable.Table Dim dataset As IDataset = DirectCast(table, IDataset) Dim workspace As IWorkspace = dataset.Workspace Dim workspaceEdit As IWorkspaceEdit = DirectCast(workspace, IWorkspaceEdit) If Not workspaceEdit.IsBeingEdited Then workspaceEdit.StartEditing(True) workspaceEdit.StartEditOperation() Dim insertCursor As ICursor = table.Insert(True) Dim rowBuffer As IRowBuffer = table.CreateRowBuffer Dim index As Int32 = table.Fields.FindField("scenario_id") rowBuffer.Value(index) = "test scenario" Dim oid As Int32 = Convert.ToInt32(insertCursor.InsertRow(rowBuffer)) workspaceEdit.StopEditOperation() Marshal.ReleaseComObject(insertCursor) Marshal.ReleaseComObject(rowBuffer) workspaceEdit.StartEditOperation() insertCursor = table.Insert(True) rowBuffer = table.CreateRowBuffer() rowBuffer.Value(index) = "test scenario" insertCursor.InsertRow(rowBuffer) workspaceEdit.StopEditOperation() Marshal.ReleaseComObject(insertCursor) Marshal.ReleaseComObject(rowBuffer) workspaceEdit.StopEditing(True) Catch ex As Exception MessageBox.Show(ex.ToString) End Try
Les membres connectés peuvent publier, suivre les mises à jour, et plus encore. Nouveau ici ? Inscrivez-vous gratuitement.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.