读者域赋值问题

i=i+1

Wend

Exit Sub

但是运行的时候Forall i In doc.Items一行报错说No Resume，不知道是不是我doc取的不对还是我少定义了什么呢？

第6楼. 由 Lucern 于 2007-6-20 16:44:06 发表

forall alias variable was previously declared:I

第7楼. 由 whtportland 于 2007-6-21 9:14:14 发表

i重复定义了，改成这样：

Dim session As New NotesSession

Dim db As NotesDatabase

Dim collection As NotesDocumentCollection

Dim doc As NotesDocument

Set db = session.CurrentDatabase

Set collection = db.AllDocuments

Dim dc As NotesDocumentCollection

Dim view As NotesView

key = "A"

Set view = db.GetView ("dbsy" )

Set dc = view.GetAllDocumentsByKey(key, False)

Set doc = dc.GetFirstDocument()

i=1

While Not(doc Is Nothing)

tt=Evaluate("@setfield("to";to:"B")",doc)

Forall v In doc.Items

If v.IsReaders Then

Set nam = New NotesName("B")