怎么样取得当前帖子的总个数？
我想做BBS
但是我不会取当前的总页数和帖子的总个数。请高手帮帮忙！！
问题点数：100、回复次数：13Top
1 楼panda555（发哥）回复于 2003-06-04 11:15:18 得分 80
先把视图嵌入到一个表单里，然后在表单的webqueryopen事件里调用代理
代理里加入：
Dim s As New NotesSession
Dim doc As NotesDocument
Set doc=s.DocumentContext
Dim db As NotesDatabase
Set db=s.CurrentDatabase
Dim view As NotesView
Set view=db.GetView(doc.v_view(0))
Dim viewdc As NotesViewEntryCollection
Set viewdc=view.AllEntries
doc.docnum=viewdc.count
注：在表单里建立隐藏域：v_view 内容是视图名称 docnum域
最后的结果就放入到docnum域里了Top
2 楼wanght246（郁闷）回复于 2003-06-04 11:21:41 得分 20
Dim s As New NotesSession
Dim doc As NotesDocument
Set doc=s.DocumentContext
Dim db As NotesDatabase
Set db=s.CurrentDatabase
Dim view As NotesView
Set view=db.GetView(doc.v_view(0))
Dim viewdc As NotesViewEntryCollection
Set viewdc=view.AllEntries
doc.docnum=viewdc.count
我试过，这样建立一个表但就可以了，但要注意是隐藏域Top
3 楼panda555（发哥）回复于 2003-06-04 11:24:11 得分 0
至于总页数，就在嵌入视图属性里设一下每页显示的行数，然后计算用刚才取出的总数除一下就行了,代码（在刚才那段后面加上就行了）：
Dim pagenum,numdoc As Integer
numdoc = viewdc.count
If (numdoc Mod 15)=0 Then
pagenum=numdoc/15
Else
pagenum=Int(numdoc/15)+1
End If
doc.page = Cstr(pagenum)
注：设每页显示15行，最后结果（总页数）存在page域里Top
4 楼kimble2000（爱情恐惧）回复于 2003-06-04 11:25:51 得分 0
在V_VIEW里直接写上视图名吗？Top
5 楼panda555（发哥）回复于 2003-06-04 11:28:49 得分 0
对，直接写你嵌入的视图的名字
呵呵记得要加引号呀Top
6 楼kimble2000（爱情恐惧）回复于 2003-06-04 11:29:17 得分 0
那在隐藏域里写什么呢？
谢谢！！！等好用了分马上就到Top
7 楼kimble2000（爱情恐惧）回复于 2003-06-04 11:31:13 得分 0
不好意思
代理是用隐含还是菜单？Top
8 楼panda555（发哥）回复于 2003-06-04 11:41:16 得分 0
呵呵，我说的就是把v_view做成隐藏域，你总不希望表单里显示这东东吧
Top
9 楼panda555（发哥）回复于 2003-06-04 11:42:22 得分 0
用隐含就可以了Top
10 楼kimble2000（爱情恐惧）回复于 2003-06-04 12:02:27 得分 0
谢谢发哥！！！
留个联系方法吧。。。。。。。Top
11 楼panda555（发哥）回复于 2003-06-04 12:03:10 得分 0
qq:4277302Top
12 楼kimble2000（爱情恐惧）回复于 2003-06-04 12:05:48 得分 0
那个总页数是不是要另设一个代理？Top
13 楼panda555（发哥）回复于 2003-06-04 12:08:25 得分 0
不用，写到那段代码下面就可以了
（直接拷贝，什么都不用改）Top
