Examples: AddRow method

  1. This agent gets the first or only table in the Body field of the current document and adds two rows at the end.

    Sub Initialize
      Dim session As New NotesSession
      Dim db As NotesDatabase
      Set db = session.CurrentDatabase
      Dim dc As NotesDocumentCollection
      Set dc = db.UnprocessedDocuments
      Dim doc As NotesDocument
      Set doc = dc.GetFirstDocument
      Dim rti As NotesRichTextItem
      Set rti = doc.GetFirstItem("Body")
      Dim rtnav As NotesRichTextNavigator
      Set rtnav = rti.CreateNavigator
      If Not rtnav.FindFirstElement(RTELEM_TYPE_TABLE) Then
        Messagebox "Body item does not contain a table,",, _
        "Error"
        Exit Sub
      End If
      Dim rtt As NotesRichTextTable
      Set rtt = rtnav.GetElement
      Messagebox "Row count = " & rtt.RowCount,, _
      "NotesRichTextTable"
      Call rtt.AddRow(2)
      Call doc.Save(True, True)
      Messagebox "Row count = " & rtt.RowCount,, _
      "NotesRichTextTable"
    End Sub
  2. This agent gets the first or only table in the Body field of the current document and adds one row at the beginning.

    Sub Initialize
      Dim session As New NotesSession
      Dim db As NotesDatabase
      Set db = session.CurrentDatabase
      Dim dc As NotesDocumentCollection
      Set dc = db.UnprocessedDocuments
      Dim doc As NotesDocument
      Set doc = dc.GetFirstDocument
      Dim rti As NotesRichTextItem
      Set rti = doc.GetFirstItem("Body")
      Dim rtnav As NotesRichTextNavigator
      Set rtnav = rti.CreateNavigator
      If Not rtnav.FindFirstElement(RTELEM_TYPE_TABLE) Then
        Messagebox "Body item does not contain a table,",, _
        "Error"
        Exit Sub
      End If
      Dim rtt As NotesRichTextTable
      Set rtt = rtnav.GetElement
      Messagebox "Row count = " & rtt.RowCount,, _
      "NotesRichTextTable"
      Call rtt.AddRow(, 0)
      REM THIS IS EQUIVALENT  Call rtt.AddRow(1, 0)
      Call doc.Save(True, True)
      Messagebox "Row count = " & rtt.RowCount,, _
      "NotesRichTextTable"
    End Sub