通过url调用Lotusscript代理,循环遍历某视图异常

通过url调用Lotusscript代理,循环遍历某视图文档,文档获取数目不对,时而获取到1条数据,时而2条数据,有时候没有获取到数据,但视图中始终是存在数据,请大侠们指教。代码如下:
Dim session As New NotesSession
        Dim notedb As NotesDatabase
        Dim noteview As NotesView
        Dim notevc As NotesViewEntryCollection
        Dim notee As NotesViewEntry
        Dim notedoc As NotesDocument

        Set notedb = session.Currentdatabase
        Set noteview = notedb.Getview("WtmVw")
        Set notevc = noteview.Allentries
        MsgBox CStr(notevc.Count) +  "代理开始执行..."
        If notevc.Count > 0 Then
                Dim i As Integer
                For i = 1 To notevc.Count
                        Set notee = notevc.GetNthEntry(i)
                        Set notedoc =notee.Document
                         notedoc.subject= "new value"
                        Call notedoc.save(True,False)
                next
        End If
        Exit Sub
参与6

5同行回答

shilei82shilei82项目经理鼎捷集团
1,确保当前代理的执行权限能获取到对应的文档2,URL后面加个时间戳或随机数,确保每次的URL是不同的,浏览器有缓存显示全部
1,确保当前代理的执行权限能获取到对应的文档
2,URL后面加个时间戳或随机数,确保每次的URL是不同的,浏览器有缓存收起
软件开发 · 2014-12-10
浏览1042
KiradleKiradle软件开发工程师BIPO
嗯,还有文档读者权限,代理执行权限显示全部
嗯,还有文档读者权限,代理执行权限收起
互联网服务 · 2014-12-10
浏览930
haornlxhaornlx软件开发工程师浙江兰德纵横科技技术有限公司
刷新视图试试,可能是当你获取的时候又有新的数据进来。显示全部
刷新视图试试,可能是当你获取的时候又有新的数据进来。收起
互联网服务 · 2014-12-10
浏览1078
xyjfxxyjfx软件架构设计师软件公司
你把这个视图的索引删掉,然后重新建索引,试试。我认为是索引更新不及时导致的显示全部
你把这个视图的索引删掉,然后重新建索引,试试。我认为是索引更新不及时导致的收起
软件开发 · 2014-12-10
浏览976
Roy0560Roy0560软件开发工程师奇美电子
在以下Set noteview = notedb.Getview("WtmVw")Set notevc = noteview.Allentries两句代码之间,添加两条代码试试,如下:Set noteview = notedb.Getview("WtmVw")Call noteview.Refresh()noteview.Autoupdate=FalseSet notevc = noteview.Allentries...显示全部
在以下
Set noteview = notedb.Getview("WtmVw")
Set notevc = noteview.Allentries
两句代码之间,添加两条代码试试,如下:
Set noteview = notedb.Getview("WtmVw")
Call noteview.Refresh()
noteview.Autoupdate=False
Set notevc = noteview.Allentries收起
互联网服务 · 2014-12-10
浏览958

提问者

eiffelly
软件开发工程师XO

相关问题

相关资料

问题状态

  • 发布时间:2014-12-09
  • 关注会员:1 人
  • 问题浏览:4017
  • 最近回答:2014-12-10
  • X社区推广