Retrieve All Columns for Each View in a Database

This routine displays all columns for all views in the database.

How It Works

Using the NotesDatabase and NotesView classes, the routine iterates through every view in the database and returns all columns for the view. Alternatively, you may want to store the column names in a dynamic array or perform some other action with each view column.

Implementation

To implement this routine, create an action button. Set the Language Selector to LotusScript and insert the following statements in the Programmer's pane.

Sub Click(Source As Button) '----------------------------------------------------------------- ' Define the objects '----------------------------------------------------------------- Dim s As NotesSession Dim db As NotesDatabase Set s = New NotesSession Set db = s.CurrentDatabase Dim view As NotesView '----------------------------------------------------------------- ' Display all columns for each database view '----------------------------------------------------------------- If Not Isempty (db.Views) Then Forall v In db.Views Msgbox "Found View: " + v.Name Set view = db.GetView( v.Name ) Forall c In view.Columns Msgbox ( "----" + c.Title ) End Forall End Forall End If End Sub