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
Aangemelde leden kunnen berichten plaatsen, updates volgen en meer. Nieuw hier? Registreer een gratis account.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.