NotesViewEntryCollection.clone() fails

HCL Domino Domino Forum
1

A fundamental method of NotesViewEntryCollection appears to fail.

It’s the clone method. I intended to use this as a part of a strategy to transform a procedurally-oriented dev environment into an OO environment.

Option Declare
Const VIEW_NAME = “(Lookup - Status)” Sub Initialize Dim session As New NotesSession Dim thisDb As NotesDatabase Set thisDb = session.Currentdatabase Dim view As NotesView Set view = thisDb.Getview(VIEW_NAME) Dim nvec0 As NotesViewEntryCollection dim nvec1 As NotesViewEntryCollection Set nvec0 = view.allEntries() MsgBox “nvec0 has " & nvec0.Count & " entries” MsgBox "UNID of first entry in nvec0: " & nvec0.GetFirstEntry().Universalid Set nvec1 = nvec0.clone() MsgBox “nvec1 has " & nvec1.Count & " entries”
'// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

'// This fails as the getFirstEntry method returns Nothing

'// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
MsgBox "UNID of first entry in nvec1: " & nvec1.GetFirstEntry().Universalid End Sub

Anyone else seen this/have a workaround?

2

Subject: More info

The merge() method of NotesViewEntryCollection works mostly correctly. SO you can get a distinct NotesViewEntryCollection object by creating an empty NotesViewEntryCollection and merging another NotesViewEntryCollection with it. However, the sort order of the destination NotesViewCollection seems to be lost, so it is a partial solution.