LOTUSSCRIPT /COM/OLE のクラス

例:IsSecondaryResortDescending プロパティ
次のスクリプトは、2 次ソート列の再ソート順を降順にするかどうかを切り替えます。

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

関連項目