- 論壇徽章:
- 0
|
在視圖下操作文檔,當(dāng)文檔個(gè)數(shù)超過(guò)N個(gè)就報(bào)錯(cuò)了,出錯(cuò)對(duì)話框提示:無(wú)法延期關(guān)閉文檔。
腳本還有什么更好的辦法處理嗎?請(qǐng)高手指教。
如下為代碼:
'扣費(fèi)
Set inview = db.GetView( "帳號(hào)余額" )
Set indoc = inview.GetFirstDocument
While Not ( indoc Is Nothing )
inbalance = indoc.GetItemValue("Balance")
tmpInt = Int(inbalance(0))
'計(jì)算余額
tmpInt = tmpInt - mealfee
'保存數(shù)據(jù)并關(guān)閉帳戶文檔
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
''記錄消費(fèi)日志
logstr = "NotesID:" + Cstr(curaccount(0)) + ", "
logstr = logstr + "姓名:" + tmpName
logstr = logstr + "消費(fèi):" + Cstr(mealfee) + "元, "
logstr = logstr + "最新余額:" + Cstr(tmpInt) + "元。"
Call rtitem.AppendText(logstr)
Call rtitem.AddNewline(1)
'Call rtitemLog.AppendText(logstr)
'Call rtitemLog.AddNewline(1)
'繼續(xù)獲取下一個(gè)
Set indoc = inview.GetNextDocument( indoc )
Wend |
|