LOTUSSCRIPT /COM/OLE のクラス
例:Evaluate ステートメントを使用する
1
次の例では、[Subject] フィールドの入力を終了したときに @ProperCase を呼び出します。Evaluate の結果によって、Subject アイテムの現在の値が置換されます。
Sub Exiting(Source As Field)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim eval As Variant
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
eval = Evaluate("@
ProperCase(Subject)", doc)
Call doc.ReplaceItemValue("Subject", eval)
Call doc.Save(True, False)
End Sub
2 次のボタンの例は @Sum を呼び出し、[Amounts] フィールドの値の合計を表示します。
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim sumAmounts As Variant
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
sumAmounts = Evaluate("@Sum(Amounts)", doc)
Messagebox("Sum of Amounts = " & sumAmounts(0))
End Sub
関連項目
Evaluate ステートメントを使用する
用語集
ヘルプに対するフィードバック
ヘルプの使い方
ヘルプを開く
用語集
ヘルプに対するフィードバック
ヘルプの使い方
ヘルプを開く