LOTUSSCRIPT/COM/OLE CLASSES
Examples: RemoveRow method
1. This agent gets the first or only table in the Body field of the current document and removes the last row.
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"
REM Call rtt.RemoveRow
Call rtt.RemoveRow(1, 1)
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 removes the last two rows.
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.RemoveRow(2, rtt.RowCount - 1)
Call doc.Save(True, True)
Messagebox "Row count = " & rtt.RowCount,, _
"NotesRichTextTable"
End Sub
Véase también
RemoveRow method
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario