[Back to "LotusScript: Programming views in Notes/Domino 6"]

LotusScript:Programming views in Notes/Domino 6 sidebar
The following is a code example for creating a new view.

Declarations
Dim db As NotesDatabase
Dim Templateview As NotesView
Dim UsersView As NotesView
Dim col1 As NotesViewColumn
Dim col2 As NotesViewColumn
Dim J As Integer
Dim K As Integer
Dim L As Integer
Dim allcols () As String
Dim checkviewname () As String

Sub Initialize

Dim s As New NotesSession
Dim ws As New NotesUIWorkspace

Set db = s.CurrentDatabase
Set Templateview = db.GetView("MAIN")
'Asks for name of new view

CHOOSENAME:

newviewname = Inputbox("Name for new view?","What do you wish to name this view?")
If Trim(newviewname) = "" Then
Messagebox "Stopping processing",,"You did not enter a name for the view."
Exit Sub
End If

'Check for existing view name
Redim Preserve checkviewname(Ubound(db.Views))
For L = 0 To Ubound(db.Views)

checkviewname(L) = db.Views(L).Name
If checkviewname(L) = newviewname Then
Messagebox "The view name you entered is already being used. Please pick another." _
,,"View Name already in use"
Goto CHOOSENAME
End If

Next

'Create new view with name from user input
Set UsersView = db.CreateView(newviewname)
'Remove default column created with view
Call UsersView.RemoveColumn(UsersView.ColumnCount)
'Find number of columns in Templateview
I = Ubound(Templateview.Columns)

Redim Preserve allcols(I)
'Create an array of column titles to be used in prompt
For J = 0 To I
allcols(J) = Templateview.Columns(J).Title
Next
K = 1

Do

chosencol = ws.Prompt(Prompt_OKCancelList,"Choose column to insert", _
"Select from list of column names.","",allcols)
'Find column position
For J =0 To Ubound(Templateview.Columns)
If Templateview.Columns(J).Title = chosencol Then
Set col1 = Templateview.Columns(J)
End If
Next
Set col2 = UsersView.CopyColumn(col1, K)
If col2.Position = 1 Then
asksort = ws.Prompt(PROMPT_YESNO,"Sorting for first column?", _
"Do you want to sort the first column?")
If asksort = 1 Then
col2.IsSorted = True
End If
End If
'Set the font color for the header
col2.HeaderFontColor = COLOR_BLUE
K= K+1

Loop While ws.Prompt(PROMPT_YESNO,"Additional columns?","Do you want to add another column to the view?")

Messagebox "View completed",,"Your view has been built."

End Sub