LOTUSSCRIPT /COM/OLE のクラス

例:IsResortDescending プロパティ
次のエージェントは、列が降順のユーザーソート列であるかどうかを切り替え、列のユーザーソート属性を表示します。

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

関連項目