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
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.