Examples: ParentView property

1. This script prints the title of the NotesView object from which a document was retrieved (view), and the title of the NotesView object returned by the ParentView property (parentView). The titles are the same, because view and parentView represent the same view, the Main View in .SOMEDOCS.NSF

Sub Initialize
Dim db As New NotesDatabase( "", "somedocs.nsf" )
Dim view As NotesView
Dim parentView As NotesView
Dim doc As NotesDocument
Set view = db.GetView( "By Category" )
If Not view Is Nothing Then
Set doc = view.GetFirstDocument
Set parentView = doc.ParentView
Messagebox view.Name , , "view.Name"
Messagebox parentView.Name , , "parentView.Name"
End If
End Sub

2. This agent demonstrates a function that gets the parent view given a Document object.

Sub Initialize
Dim db As New NotesDatabase( "", "" )
Dim doc As NotesDocument
Call db.open( "snapper", "progwork2.nsf" )

Dim view As NotesView
Set view = db.GetView( "By Category" )
If Not view Is Nothing Then
Set doc = view.GetFirstDocument
Call printViewName (doc, "first doc in view")
End If

Dim dc As NotesDocumentCollection
Set dc = db.AllDocuments
If dc.Count > 0 Then
Set doc = dc.getFirstDocument
Call printViewName (doc, "first doc in collection")
End If

Set doc = New notesdocument (db)
Call printViewName (doc, "new doc")

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.document
Call printViewName (doc, "ui doc")
End Sub
Sub printViewName (d As NotesDocument, t As String)
Dim v As notesview
Set v = d.ParentView
If v Is Nothing Then
Messagebox "Document did not come from a view.", , t
Else
Messagebox "Document came from the " + _
v.Name + " view.", , t
End If
End Sub