亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

  免費(fèi)注冊(cè) 查看新帖 |

Chinaunix

  平臺(tái) 論壇 博客 文庫(kù)
最近訪問(wèn)板塊 發(fā)新帖
查看: 3174 | 回復(fù): 0
打印 上一主題 下一主題

[Lotus] 【求教】lotus開(kāi)發(fā),用lotus script腳本處理文檔問(wèn)題! [復(fù)制鏈接]

論壇徽章:
0
跳轉(zhuǎn)到指定樓層
1 [收藏(0)] [報(bào)告]
發(fā)表于 2007-02-05 14:09 |只看該作者 |倒序?yàn)g覽
在視圖下操作文檔,當(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
您需要登錄后才可以回帖 登錄 | 注冊(cè)

本版積分規(guī)則 發(fā)表回復(fù)

  

北京盛拓優(yōu)訊信息技術(shù)有限公司. 版權(quán)所有 京ICP備16024965號(hào)-6 北京市公安局海淀分局網(wǎng)監(jiān)中心備案編號(hào):11010802020122 niuxiaotong@pcpop.com 17352615567
未成年舉報(bào)專區(qū)
中國(guó)互聯(lián)網(wǎng)協(xié)會(huì)會(huì)員  聯(lián)系我們:huangweiwei@itpub.net
感謝所有關(guān)心和支持過(guò)ChinaUnix的朋友們 轉(zhuǎn)載本站內(nèi)容請(qǐng)注明原作者名及出處

清除 Cookies - ChinaUnix - Archiver - WAP - TOP