.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: Position property
This agent displays the titles and positions of all the columns in a view.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Set db = session.CurrentDatabase
 Set view = db.GetView("View A")
 Forall vc In view.Columns
   title$ = vc.Title
   If title$ = "" Then title$ = "<No title>"
   Messagebox title$,, "Position " & vc.Position
 End Forall
End Sub

See Also