Examples: ColumnValues property (NotesViewEntry - LotusScript)

  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")
  view.AutoUpdate = False
  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")
  view.AutoUpdate = False
  Set entry = view.GetEntryByKey("Sports car", False)
  Forall colval In entry.ColumnValues
    col% = col% + 1
    Messagebox colval,, "Column " & col%
  End Forall
End Sub