【求教】lotus开发，用lotus script脚本处理文档问题！

ge-hw

在视图下操作文档，当文档个数超过N个就报错了，出错对话框提示：无法延期关闭文档。

脚本还有什么更好的办法处理吗？请高手指教。                       



如下为代码：
'扣费
Set inview = db.GetView( "帐号余额" )
Set indoc = inview.GetFirstDocument
While Not ( indoc Is Nothing )
        inbalance = indoc.GetItemValue("Balance")
        tmpInt = Int(inbalance(0))
        '计算余额
        tmpInt = tmpInt - mealfee
       
        '保存数据并关闭帐户文档
        Set uidoc = workspace.EditDocument(False, indoc, False,,False)
        Set accdoc = uidoc.Document
        uidoc.EditMode = True
        Call accdoc.ReplaceItemValue( "Balance", tmpInt )
        Call uidoc.Save
        uidoc.EditMode = False
        Call uidoc.Close
       
        ''记录消费日志
        logstr = "NotesID：" + Cstr(curaccount(0)) + "， "
        logstr = logstr + "姓名：" + tmpName
        logstr = logstr + "消费：" + Cstr(mealfee) + "元， "
        logstr = logstr + "最新余额：" + Cstr(tmpInt) + "元。"
        Call rtitem.AppendText(logstr)
        Call rtitem.AddNewline(1)
        'Call rtitemLog.AppendText(logstr)
        'Call rtitemLog.AddNewline(1)
       
        '继续获取下一个
        Set indoc = inview.GetNextDocument( indoc )
Wend