LOTUSSCRIPT /COM/OLE のクラス

例:IsFormula プロパティ
次のエージェントは、ビューの列がフィールドまたは式に基づいているかどうかを表示し、フィールドのアイテム名および式の式を表示します。

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim f As String
 Set db = session.CurrentDatabase
 Set view = db.GetView("View A")
 Forall vc In view.Columns
   title = vc.Title
   If title = "" Then title = "<No title>"
   If vc.IsField Then
     Messagebox "Column is based on field " & vc.ItemName,, _
     "Column " & vc.Position & " - " & title
   Elseif vc.IsFormula Then
     Messagebox "Column is based on formula:"& Chr(13) & _
     vc.Formula,, "Column " & vc.Position & " - " & title
   Else
     Messagebox "IsField and IsFormula are both False",, _
     "Error"
   End If
 End Forall
End Sub

関連項目