LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Set db = session.CurrentDatabase Set collection = db.FTSearch( "white wine", 0 ) If collection.IsSorted Then Messagebox( "This collection is sorted" ) Else Messagebox( "This collection is unsorted" ) End If End Sub
See Also