notes分类视图生成

DIRL

在多分类的情况下可以正常按分类显示，并能够正常分页。但折叠和展开的操作太复杂，主要是文档序号与分页等不好控制，因此没有做分页功能。实现方法：在viewQueryOpen代理的generateView中加入两段代码。

　　以下程序用于获得视图中entry（行）的总数allcount。

'获得视图的entry（行）总数allcount

Set vn=view.createViewNav
Set ventry=vn.getFirst
allcount=0
Do While Not ventry Is Nothing
If Not ventry.isvalid Then '如果遇到某一行非法（属意外情况），则退出循环
Exit Do
End If
Set ventry=vn.getNext(ventry)
allcount=allcount+1
Loop

以下程序用于生成视图中的每一行。

'先找到起始行（第start行）

Set ventry=vn.getFirst
For i=1 To start-1
If ventry Is Nothing Then
Exit For
End If
If Not ventry.isvalid Then '如果遇到某一行非法（属意外情况），则退出循环
Exit For
End If
Set ventry=vn.getNext(ventry)
Next

'从第start行开始，生成一共count行

i=1 '行号
Dim n As Integer 'checkBox的序号
n=1
Do While Not ventry Is Nothing And i<=count
If Not ventry.isvalid Then '如果遇到某一行非法（属意外情况），则退出循环
Exit Do
End If

'逐行填写视图内容

If ventry.isdocument Then '如果本行是文档，则按正常情况处理
viewbody=viewbody+getRowCode(viewname,ventry,viewcolumns,vcolumns,cwidth,n,start)
n=n+1
End If
If ventry.isCategory Then '如果本行是分类，则特殊处理
viewbody=viewbody+|<TR vAlign=top Width="100%">|


'缩进未读标记列
If showunread="on" Then
viewbody=viewbody+|<td></td>|
End If

'缩进复选框列
If showselect="on" Then
viewbody=viewbody+|<td></td>|
End If

'缩进序号列
If showseq="on" Then
viewbody=viewbody+|<td></td>|
End If

'分类横跨表格右侧剩余的所有列
viewbody=viewbody+|<TD COLSPAN="|+Cstr(view.columnCount)+|">|+ventry.columnValues(0)+| End If
Set ventry=vn.getNext(ventry)
i=i+1
Loop

　　另外，在getRowCode中增加一个判断，如果视图的某一列是分类列（isCategory），则该列的values设置为空值。

leafyeer

good

[本贴已被 leafyeer 于 2003-7-20 22:05:05 修改过]