例: GetPrevSibling method (NotesView - LotusScript®)

次のスクリプトは、データベースの [Main View] の最後から 2 番目の主要文書を検索します。

[Main View] がカテゴリ分けされていて、lastMain がカテゴリ内の唯一の主要文書の場合、ビューの他のカテゴリの中に主要文書が他にあっても、GetPrevSibling は Nothing を返します。
[Main View] がカテゴリ化されていて、lastMain がカテゴリ内の唯一の主要文書ではない場合、GetPrevSibling は lastMain と同じカテゴリ内で lastMain の前にある主要文書を返します。
[Main View] がカテゴリ化されていない場合、GetPrevSibling は前にある主要文書を返します。

Dim db As New NotesDatabase( "Addis-Ababa", "discuss.nsf" )
Dim view As NotesView
Dim lastMain As NotesDocument
Dim secondToLastMain As NotesDocument
Set view = db.GetView( "Main View" )
Set lastMain = view.GetLastDocument
' Find the last main document in the view
While lastMain.IsResponse
  Set lastMain = view.GetParentDocument( lastMain )
Wend
' Now find the second-to-last main document in the view
Set secondToLastMain = view.GetPrevSibling( lastMain )