关于domino视图翻页的解决方法.doc

关于视图翻页的解决方法,我说的这个是针对在WEB程序中，嵌入视图的翻页的相信大家都这样做过，在一个表单里面，我嵌入一个视图，显示方式是HTML，规定每页的条数，那么当一页显示不全所有记录的时候，就会出现翻页的问题。最基本的，我们就用系统提供的函数 ??Code: [Copy to clipboard]?? @DbCommand( Domino ; ViewNextPage )  ??Code: [Copy to clipboard]?? @DbCommand( Domino ; ViewPreviousPage ) 就可以实现翻页了，帮助里面说的很详细，也很明确，在R5很正常，但是到了R6就不行了，翻页的时候会出现问题，比如说28条记录，每页10条，可能会出现这样的情况，第一页10条，第2页8条，第3页2条，当然就是说不稳定，有时候会直接跳到最后的情况，反正有些记录翻不到这种情况在分类视图显示的更加强烈我们知道在这个表单打开的时候，在URL上加参数可以控制，比如说http://hostname/dbname.nsf/formname?openformStrat=11那么这样我们把这个网址直接在IE地址栏里面输入，就可以让嵌入的视图从第11条记录开始显示。实现翻页的效果。我们只有控制好这个Start参数就可以控制视图从什么地方开始显示另外，视图显示的记录条数，需要用Count参数来控制，两个参数加起来就实现视图的翻页效果，这个是一种方式，这种方式实现相对界面上的处理多些，所有的界面效果的调试都直接在表单里面完成了，控制好界面的CSS就可以完成大部分工作了，然后在按钮的代码里面用什么语言都是一样的，用JS也好，用公式也好，道理是一样的另外可以直接在代理Print处理，是Print整个表单或者是Print某个区域，使用一些CSS和Dhtml的技巧我先开个头，下面我们大家一起来讨论关于分页的一些算法和技巧，我现在的方法不管针对分类不分类都可以，可以可以是多级分类的，相对比较准确，效率上一些问题。目前网络上的代码针对无分类较多，如果大家觉得有必要，或者对您有用，一起讨论吧我还会陆续开几个帖子，欢迎^_^今天在整理代码，虽然在lotus方面还是菜鸟，但有些代码自己觉得还是有点使用价值的，这里送上一个自己琢磨的含分类的视图的翻页方法，写得不好请各位高手指教。1、在form中放下列field? ? ? ? 用于提供数据：ViewName view名称 ViewCategory 分类字段??Query_String_Decoded 路径?后面部分 pageCount 每页行数? ? ? ? 用于获取数据：pageList 每页打开的第一行的行号列表，pageNum 页码列表， ? ? ? ? ? ? ? ?? ?? ?? ?? ? SortExpand 当前打开的分类（这里打开的分类只能有一个），pageTotal 总页数 curPage??当前页2、写Agent,??getPageList 如下， open时运行Sub Initialize? ? ? ? Dim s As New NotesSession? ? ? ? Dim doc As NotesDocument? ? ? ? Dim db As NotesDatabase? ? ? ? Dim view As NotesView? ?视图名称? ? ? ? Dim numdoc,rowsperpage As Integer??记录总数,每页记录数? ? ? ? Dim viewdc, viewAlldc As NotesViewEntryCollection? ? ? ? ? ? ? ? Dim sortKey As Variant? ? ? ? Dim i ,j As Integer? ? ? ? Dim CountSort,CountAll As Integer??? ? ? ? Dim item As NotesItem? ? ? ? Dim rowList(),groupList() As String??行号列表,每组数据个数列表? ? ? ? Dim curRow As Integer??行计数? ? ? ? Dim pageCount As Integer 每页显示的行数? ? ? ? Dim rowTotal As Integer??实际显示的行数? ? ? ? Dim pageTotal As Integer 页数? ? ? ? Dim queryString List As String? ? ? ? ? ? ? ? Dim sortExpand,curPag