%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 メソッド

用語集