LOTUSSCRIPT/COM/OLE CLASSES
Examples: NotesViewEntry class
1. This script finds the current view entry and prints the number of its immediate children.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set entry = view.GetEntryByKey("Inventory")
Messagebox entry.ChildCount
2. This script finds the document associated with the view entry.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set entry = view.GetEntryByKey("Product Specifications")
Set doc = entry.Document
3. This script displays the universal ID of the Parts document which is associated with the current view entry, Cars.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set entry = view.GetEntryByKey("Cars")
Véase también
NotesViewEntry class
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario