Lotus查询翻页功能实现详解.doc

Lotus查询翻页功能实现详解 这个星期做了个查询翻页的功能，在网上找的资料都是写一个代理，在代理中打印出查询结果，并通过url调用当前代理实现翻页功能。开始我是按照那种思路去做的，但遇到一个问题，如果把查询结果在代理里面打印出来的话，那么页面就会跳转，因为代理里面是根据当前文档域的值来查询的，所以再调用代理的话是不可能有查询条件的，或许是我还没有掌握里面的精髓吧。 由于那种方法我没法实现所以我也就按照自己的想法做了个查询翻页功能，思路也挺简单的，下面就让我把我的思路和代码做个详细介绍吧。 思路：我的主体思路就是让查询结果在查询表单上显示，我表单上有两个table和一个div其中一个table是查询，另一个table是翻页按钮，div里面的则是查询结果，我们可以通过不同情况下显示或隐藏.tablediv达到我们要的视觉效果。至于翻页，弄清，总共查询出多少文档“totaldocs”、总共多少页“totalpages”、每页多少条文档“page”，当前为第几也“cur”、开始文档位置“startPosition”、结束文档位置“endPosition”之间的关系就没问题。别的我也不多说了，先看看代码吧，里面也注释着代码介绍，一看就知道了。 代理： Sub Initialize 作者：张武辉 2012年1月11日 On Error Goto erh Dim ss As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentcollection 查询结果的文档集 Set db=ss.CurrentDatabase Dim doc As NotesDocument Set doc=ss.DocumentContext Dim dc As NotesDocument 查询结果文档集中的某条文档 doc.state=1 控制表单上table的隐藏与显示 =================查询============== If doc.searchname(0) And doc.searchsort(0) Then searchFormula$ = Form = frm_tongxunlu + + name=+doc.searchname(0)+ ++ sort=+doc.searchsort(0)+ Else If doc.searchname(0) And doc.searchsort(0)= Then searchFormula$ = Form = frm_tongxunlu + + name=+doc.searchname(0)+ End If If doc.searchname(0)= And doc.searchsort(0) Then searchFormula$ = Form = frm_tongxunlu + + sort=+doc.searchsort(0)+ End If End If Set collection=db.Search(searchFormula$,Nothing,0) ========================================= Dim HtmlStr,Htmlend,Htmlhead,Htmlbody As String Htmlhead= HtmlStr = Htmlbody= Htmlend =/table =======================设置表头===================================== Htmlhead = center table style=border-collapse:collapse; border= 1 height=70% width=100% bordercolor= #F4F8F9 cellspacing= 0 cellpadding= 2 Htmlhead = Htmlhead + trth style=text-overflow:ellipsis;white-space:nowrap;分类/thth style=text-overflow:ellipsis;white-space:nowrap;姓名/thth style=text-overflow:ellipsis;white-space:nowrap;单位/thth style=text-overflow:ellipsis;white-space:nowrap;部门/thth style=text-