Examples: IsResortDescending property (NotesViewColumn - LotusScript®)

This agent toggles whether a column is descending user-sorted, and displays the user-sort attributes of the column.

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)
  vc.IsResortDescending = NOT vc.IsResortDescending
  Messagebox "Resort ascending " & vc.IsResortAscending _
  & Chr(13) & "Resort descending " & vc.IsResortDescending _
  & Chr(13) & "Resort to view " & vc.IsResortToView,, _
  "User-sorted column options"
End Sub