LOTUSSCRIPT /COM/OLE のクラス

例:NumberDigits プロパティ
次のエージェントは、列の数値の小数点以下を 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

関連項目