Skip to main content

Examples: NotesViewColumn class

  1. This agent displays the position number and title of every column in the By Category view of the current database.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Set db = session.CurrentDatabase
Set view = db.GetView( "By Category" )
Forall c In view.Columns
Messagebox( c.Position & " " & c.Title )
End Forall
End Sub

For example, if the By Category view has five columns, two of which have titles and three of which are untitled, the script displays five dialog boxes with the following values:

  • 1
  • 2
  • 3 Date
  • 4
  • 5 Topic
  1. This agent gets the third column in the By Category view of the current database. The array returned by the Columns property starts at element 0, so view.Columns( 2 ) corresponds to the third column in the view.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim column As NotesViewColumn
Set db = session.CurrentDatabase
Set view = db.GetView( "By Category" )
Set column = view.Columns( 2 )
End Sub
  1. This agent finds the first sorted column in the By Author view of the YAHOO.NSF database on the current machine and assigns it to the column object.
Sub Initialize
Dim db As New NotesDatabase( "", "yahoo.nsf" )
Dim view As NotesView
Dim column As NotesViewColumn
Set view = db.GetView( "By Author" )
Forall c In view.Columns
If c.IsSorted Then
Set column = c
Exit Forall
End If
End Forall
End Sub