LOTUSSCRIPT /COM/OLE のクラス
例:Refresh メソッド
1 次のエージェントは、分類されていないビューの最上位エントリの数を 3 回表示します。表示するのは、ビューに表示する新しい doc を作成する前、ビューを更新する前に文書を作成した後、およびビューを更新した後です。2 度目の表示ではエントリの数は変わらず、最後の表示で増加します。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Set db = session.CurrentDatabase
Set view = db.GetView("All")
Messagebox view.TopLevelEntryCount,, "Before new doc"
Dim doc As New NotesDocument(db)
Call doc.ReplaceItemValue("Form", "Main Topic")
Call doc.ReplaceItemValue("Subject", "New document")
Call doc.Save(True, True)
Messagebox view.TopLevelEntryCount,, _
"After new doc, before refresh"
Call view.Refresh
Messagebox view.TopLevelEntryCount,, _
"After new doc, after refresh"
End Sub
2 次のエージェントは、分類されたビューに表示される新しい文書を作成します。Refresh メソッドが呼び出されるまで NotesView のメソッドはこの文書にアクセスできません。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim newDoc As NotesDocument
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView( "By Category" )
' create a new document with Latest news category
Set newDoc = New NotesDocument( db )
newDoc.Form = "Main Topic"
newDoc.Categories = "Latest news"
newDoc.Subject = "Just created this doc"
Call newDoc.Save( True, True )
' try to get first document in Latest news category
Set doc = view.GetDocumentByKey( "Latest news" )
' even though doc is saved, it doesn't appear in view yet
If ( doc Is Nothing ) Then
Messagebox( "Refresh the view" )
End If
Call view.Refresh
' after refresh, try again
Set doc = view.GetDocumentByKey( "Latest news" )
If ( doc Is Nothing ) Then
Messagebox( "Something's wrong" )
Else
Messagebox( "Now that view is refreshed, doc appears" )
End If
End Sub
関連項目
Refresh メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
?
ヘルプの使い方
すべてのヘルプ項目
用語集