.

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: EntryCount property
This view action displays the categories in a view if the entry count is not zero.

Sub Click(Source As Button)
 Dim ws As New NotesUIWorkspace
 Dim uiview As NotesUIView
 Dim view As NotesView
 Dim nav As NotesViewNavigator
 Dim entry As NotesViewEntry
 Dim msg As String
 Set uiview = ws.CurrentView
 Set view = uiview.View
 If view.EntryCount = 0 Then
   Messagebox "No documents in view",, "View empty"
 Else
   Set nav = view.CreateViewNav
   Set entry = nav.GetFirst
   Do While Not(entry Is Nothing)
     msg = msg & entry.ColumnValues(0) & Chr(13)
     Set entry = nav.GetNextCategory(entry)
   Loop
   Messagebox msg,, "Categories"
 End If
End Sub

See Also