例: NumberDigits property (NotesViewColumn - LotusScript®)

次のエージェントは、列の数値の小数点以下を 0 から 6 桁の間で切り替えます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vc As NotesViewColumn
  Dim f As String
  Set db = session.CurrentDatabase
  Set view = db.GetView("View A")
  Set vc = view.Columns(1)
  vc.NumberDigits = vc.NumberDigits + 1
  If vc.NumberDigits > 5 Then
    vc.NumberDigits = 0
  End If
  Messagebox vc.NumberDigits,, "Number of decimal digits"
End Sub