例: FieldSetText method

次のスクリプトは文書が編集モードで開かれるとユーザー名を [Creator] フィールドの値として設定します。例えば、Brian Flokka が新規文書を作成すると、「Brian Flokka」という文字列が [Creator] フィールドに入れられます。
```
Sub Postopen(Source As Notesuidocument)
  Dim session As New NotesSession
  If source.EditMode Then
    Call source.FieldSetText _
    ( "Creator", session.CommonUserName )
  End If
End Sub
```
このスクリプトは、Q1、Q2、Q3、Q4 の 4 つの数値フィールドの値を取得します。取得した値は、Cint() を使用して数値に変換されます。スクリプトは 4 つの値を合計して、Cstr() を使用して文字列に変換します。変換結果は [Total] フィールドに設定します。
```
Sub Querysave(Source As Notesuidocument, Continue As Variant)
  a% = Cint( source.FieldGetText( "Q1" ) )
  b% = Cint( source.FieldGetText( "Q2" ) )
  c% = Cint( source.FieldGetText( "Q3" ) )
  d% = Cint( source.FieldGetText( "Q4" ) )
  Call source.FieldSetText _
  ( "Total", Cstr( a% + b% + c% + d% ) )
End Sub
```