lathan reddy 24.Apr.12 09:50 AM a Web browser Domino Designer7.0.2Windows XP
Hi All,
Plase have a look inot the code ,duplicate documents filter,the loop is running again again .....
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view1 As NotesView
Dim view2 As NotesView
Dim doc1 As NotesDocument
Dim doc2 As NotesDocument
Set db=s.CurrentDatabase
Set view1=db.GetView("X")
Set view2=db.GetView("Duplicate_v")
Set doc1=view1.GetFirstDocument()
While Not doc1 Is Nothing
Set doc2=view1.GetNextDocument(doc1)
While Not doc2 Is Nothing
If doc1.Field(0)=doc2.Field(0) Then
doc1.isDup="Y"
doc2.isDup="Y"
End If
Set doc2=view1.GetNextDocument(doc2)
Wend
Call view1.Refresh()
If Not doc1.isDup(0)="Y" Then
Set doc1=view1.GetNextDocument(doc1)
Else
Set doc1=view1.GetFirstDocument()
End If
Wend
Return to top
Code Error (lathan reddy 24.Apr.12)
. . 
Print this page
