LOTUSSCRIPT/COM/OLE CLASSES
Examples: ColumnValues property
1. This agent displays the value of the first column for a view entry.
Sub Initialize
Dim session As New NotesSession
Dim db As New NotesDatabase("","test.nsf")
Dim view As NotesView
Dim entry As NotesViewEntry
Set db = session.CurrentDatabase
Set view = db.GetView("All")
Set entry = view.GetEntryByKey("Sports car", False)
Messagebox entry.ColumnValues(0),, "Column 1"
End Sub
2. This agent displays the values of all the columns for a view entry.
Sub Initialize
Dim session As New NotesSession
Dim db As New NotesDatabase("","test.nsf")
Dim view As NotesView
Dim entry As NotesViewEntry
Set db = session.CurrentDatabase
Set view = db.GetView("All")
Set entry = view.GetEntryByKey("Sports car", False)
Forall colval In entry.ColumnValues
col% = col% + 1
Messagebox colval,, "Column " & col%
End Forall
End Sub
See Also
ColumnValues property
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary