LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsSecondaryResort property
This script toggles whether a column is a secondary resortable 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 Exit Sub
 vc.IsSecondaryResort = NOT vc.IsSecondaryResort
 Messagebox vc.IsSecondaryResort,, _
 "Secondary resort"
End Sub

See Also