为什么在getnextdocument的时候总是说在索引中未找到项目?
桃花源土著 2003-10-15 06:13:22 Sub Initialize
Dim sion As New notessession
Dim cur_db As notesdatabase
Dim db As notesdatabase
Dim view As notesview
Dim doc As notesdocument
Set cur_db=sion.currentdatabase
Set db= New notesdatabase(cur_db.server,"kmapp/archive15.nsf")
Set view=db.getview("AllReport")
Set doc = view.GetFirstDocument
While Not ( doc Is Nothing )
doc.Class_2="报告"
doc.Category2="其他"
doc.Category2_1="其他"
Call doc.save(True,True)
Set doc=view.GetNextSibling(doc)
‘这里换成view.getnextdocument(doc)也不行
Wend
End Sub