LOTUSSCRIPT /COM/OLE のクラス

例:CreateColumn メソッド
次のエージェントは、[Subject2] フィールドに基づき、[By Category] ビューの末尾に新しい列を作成します。

Sub Initialize
 Dim s As New NotesSession
 Dim col As NotesViewColumn
 Set view = s.CurrentDatabase.GetView("By Category")
 Set col = view.CreateColumn(view.ColumnCount + 1, _
 "Topic 2", _
 "Subject2")
 Messagebox "Position:" & col.Position & Chr(13) & _
 "Title:" & col.Title & Chr(13) & _
 "Formula:" & col.Formula,, "New column added"
End Sub

関連項目