LOTUSSCRIPT/COM/OLE CLASSES

Examples: SecondaryResortColumnIndex property
This agent toggles whether a user-sorted column allows a secondary sorting column and identifies 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)
 If Not(vc.IsResortAscending Or vc.IsResortDescending) Then
   Messagebox "Not resortable column",, "Not resortable"
   Exit Sub
 End If
 If vc.IsSecondaryResort Then
   vc.IsSecondaryResort = False
 Else
   vc.IsSecondaryResort = True
   vc.SecondaryResortColumnIndex = 2
 End If
 Messagebox vc.IsSecondaryResort & _
 " Column " & vc.SecondaryResortColumnIndex,, _
 "Secondary resort"
End Sub

See Also