例: ColumnValues property (NotesViewEntry - LotusScript)

次のエージェントは、ビューエントリの最初の列の値を表示します。

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

次のエージェントは、ビューエントリのすべての列の値を表示します。

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