刷新文档的计算域

Formular:
 @Command([ToolsRefreshAllDocs])

LotusScript:
  Dim s As NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim doc As NotesDocument
 
 Set s = New NotesSession
 Set db = s.CurrentDatabase
 Set view = db.GetView("View Name")
 Set doc = view.GetFirstDocument
 While Not doc Is Nothing
  Call doc.ComputeWithForm(False,False)
  Call doc.Save(True,False)
  Set doc = view.GetNextDocument(doc)
 Wend