%INCLUDE "lsconst.lss"
Sub Initialize
 Dim s As New NotesSession
 Dim view As NotesView
 Dim col As NotesViewColumn
 Set view = s.CurrentDatabase.GetView("By Category")
 Set col = view.Columns(view.ColumnCount - 1)
 If Messagebox("Position:" & col.Position & Chr(13) & _
 "Title:" & col.Title & Chr(13) & _
 "Formula:" & col.Formula, MB_YESNO, _
 "Do you want to remove this column") = IDYES Then
   Call view.RemoveColumn(view.ColumnCount)
   REM Parameter could be omitted in this case
 End If
End Sub

関連項目

RemoveColumn メソッド

用語集