NEED hELP

HCL Domino Domino Forum
1

Hi,

I am having following loop tht goes into infinite time, i dont know why!

where entry1 & entry as notesviewentry

docColl as viewentrycollection

so collectoin = vw.allentry

Set entry = doccoll.GetFirstEntry()

Set doc1=entry.Document 



While Not (entry Is Nothing) 

	

	

	

	For i=0 To Ubound(FldNames)

		

		Call ritem.BeginInsert(rtnav)

		Set TempNitem=doc1.GetFirstItem(FldNames(i)) 

		If  Isempty(TempNitem) Then 

			Call ritem.AppendText("Not Specified") 

		End If

		If TempNitem.IsNames Then 

			Set TempNm=Nothing

			Set TempNm=New NotesName(TempNitem.Values(0))

			Call ritem.AppendText(TempNm.Common)

		Elseif Isdate(TempNitem.Values(0)) Then

			Call ritem.AppendText(Format(TempNitem.Values(0),"DD-MMM-YYYY")) 

			

		Else

			Call ritem.AppendText(TempNitem.Values(0)) 

		End If 

		

	'	End If 

		

		Call ritem.EndInsert

		Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL) 

		

		

	Next

	

	

	Set entry1=doccoll.GetNextEntry(entry)

Wend

can anybody please help me to achive the same.

dev

2

Subject: NEED hELP

Your using “entry1” (to get the next entry), what about:

Set entry=doccoll.GetNextEntry(entry)

3

Subject: NEED hELP

You never change entry, so it’s never nothing

Your line set entry1 = doccoll.GetNextEntry(entry)

should be

set entry = doccoll.GetNextEntry(entry)

you need to change entry, not entry1 (not sure what entry1 is meant to do)

4

Subject: RE: NEED hELP

Thank You very much

since start of my day you help me twice.

thank you so much, thank you.

dev