LOTUSSCRIPT/COM/OLE CLASSES


Examples: ResortToViewName property
This agent toggles whether a column is user-sorted to allow changing to another view, 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)
 If vc.IsResortToView Then
   vc.IsResortToView = False
 Else
   REM Make sure other IsResort's are off
   vc.IsResortAscending = False
   vc.IsResortDescending = False
   vc.IsResortToView = True
   vc.ResortToViewName = "View B"
 End If
 If vc.IsResortToView Then viewname = vcResortToViewName
 Messagebox "Resort ascending " & vc.IsResortAscending _
 & Chr(13) & "Resort descending " & vc.IsResortDescending _
 & Chr(13) & "Resort to view " & vc.IsResortToView _
 & Chr(13) & viewname,, _
 "User-sorted column options"
End Sub

See Also