Dim collection As NotesDocumentCollection
Set collection = view.GetAllDocumentsByKey("研发部")
Msgbox collection.Count
视图view里“研发部”列（第一列、分类排序列）下的文档有20多个啊，为什么只取到一个......（count报1）？
路过的神仙帮忙分析下，感谢！
------解决方案--------------------
1）可能是你运行代码的那个ID没有权限读其他20几个文档；
2）可能你在视图里看到的那20几行其实是存储在一个文档里的，只是在视图里显示成多行（视图列属性里可以设置的）；
3）可能那20几个文档是刚创建的，运行代码时，视图索引还没来得及刷新。
Lotus Script里你可以用公式转换“wangyi”：
Dim vntResult as Variant
vntResult = Evaluate([email protected]([Exhaustive];"wangyi";"FullName")})
vntResult(0)里有你要的结果