欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

代理搜案视图文档后无法排序有关问题

更新时间: 2014-01-05 03:01:39 责任编辑: Author_N1

 

代理搜案视图文档后无法排序问题
视图中已按发布时间正常排序,如降序(新文档在最前面)。

然后,open某页面时执行代理,去视图中按类别去找其下的文档再写入当前页面的一个域来展示文档列表,得到的结果是与实际视图排序相反或乱排的,调整视图升降也不管用,不知哪里有问题。


--参考方法--
Dim doc As notesDocument
Dim nVC As NotesViewEntryCollection
Dim nEntry As NotesViewEntry
Dim Db As notesdatabase
Dim view As NotesView
Dim tmpinfo As String
tmpinfo=""
Set view = Db.GetView("V_InfoPubByType") 
Set nVC =view.GetAllEntriesByKey(curdoc.CurType(0),True)

If nVC.count<>0 Then
Set nEntry = nVC.GetFirstEntry
While Not(nEntry Is Nothing)
Set doc = nEntry.Document
//////////
Else
Goto lable1
End If
Set nEntry = nVC.GetNextEntry(nEntry)
Wend
End If
lable1:
If tempinfo <> "" Then
Call curdoc.replaceitemvalue("Fd_Info",tmpinfo)
End If

用这个代码 必须解决....
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 03:01:39
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/17486/
本文WWW.DOC100.NET DOC100.NET版权所有。