Examples: IsSecondaryResortDescending property (NotesViewColumn - LotusScript®)

This script toggles whether a secondary resortable column is descending in resort order.

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.IsSecondaryResort Then Exit Sub
  vc.IsSecondaryResortDescending = _
  NOT vc.IsSecondaryResortDescending
  Messagebox vc.IsSecondaryResortDescending,, _
  "Secondary resort descending"
End Sub