LOTUSSCRIPT /COM/OLE のクラス

例:PostRecalc イベント
次のスクリプトは現在の文書が再計算されるたびに [address] フィールドの内容を更新します。この文書には、[city] というキーワードフィールドが含まれます。このキーワードフィールドはキーワードのどれかが変更されるたびに複数のフィールドを更新する設定になっています。このため、[city] フィールドが変更されるたびに、このスクリプトが呼び出されます。スクリプトは [city] フィールドの内容に基づいて [address] フィールドの内容を変更します。

Sub Postrecalc(Source As Notesuidocument)
 Dim location As String
 location = source.FieldGetText( "city" )
 Select Case location
 Case "Cambridge"
   Call source.FieldSetText( "address", "5 Memorial Drive" )
 Case "Chicago"
   Call source.FieldSetText( "address", "44 Diversey Blvd" )
 Case "Paris"
   Call source.FieldSetText( "address", "32 Rue Henri IV" )
 End Select
End Sub

関連項目