找到取文档的视图没有发现有问题。但奇怪的是在服务器上全选有63份文档，当我copy到本地后再全选却只有61份文档。是有什么隐藏吗。
是因为在你的分类视图中，分类也做为一个entry了。不知道我这样讲明白不。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set entry = view.GetEntryByKey("Cars")
If entry.IsDocument Then
Messagebox "This entry is a document."
Else
Messagebox "This entry is not a document."
End If
--------------------------------------------------------------
有人用过或遇到类似的问题没，怎么解决的，望指点下。
isdocument判断vetr是否为文档。
If vetr.IsDocument() Then '//
...
End If '//
Set vetr=vec.getNextEntry(vetr)
'Wend
'End If