例: IsSecondaryResort property (NotesViewColumn - LotusScript®)

次のスクリプトは、列を 2 次ソート列にするかどうかを切り替えます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vc As NotesViewColumn
  Set db = session.CurrentDatabase
  Set view = db.GetView("View A")
  Set vc = view.Columns(0)
  If Not(vc.IsResortAscending _
  Or vc.IsResortDescending) Then Exit Sub
  vc.IsSecondaryResort = NOT vc.IsSecondaryResort
  Messagebox vc.IsSecondaryResort,, _
  "Secondary resort"
End Sub