LOTUSSCRIPT/COM/OLE CLASSES
%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
See Also