Sub Initialize
Set s = New notessession
Dim db As notesdatabase
Set db = s.currentdatabase

Set view = db.getview("Check_Urge")
Set doc = view.getfirstdocument()
Do While Not doc Is Nothing
If doc.status(0)<10 Then
sendto = doc.GetItemValue("n_name")
subject = "aaaaa!"
Elseif doc.status(0)=10 Then
sendto = doc.GetItemValue("kaohezhe")
subject = "bbbbb"
Else
sendto = doc.GetItemValue("n_name")
subject = "ccccc!"
End If
Dim docmail As New notesdocument(db)
Dim rti As notesrichtextitem
docmail.form = "Memo"
docmail.sendto = sendto(0)
docmail.subject = subject
Set rti = docmail.createrichtextitem("Body")
Call rti.appenddoclink(doc,"Click here to open report")
Call docmail.send(False,sendto)

Set doc = view.getnextdocument(doc)
' End If
Loop

End Sub
总是在doc.status(0)处报错。如果定义一个整数变量赋值为doc.status(0)也错。上午还用得好好的，下午就变成有错了，请问是怎么回事啊？