关于notesvew.GetAllEntriesByKey的问题
function a() as notesviewentrycollection . . . set a=notesview.getallentriesbykey(key,true) msgbox a.count '这个是有数量的 endfunction通过这个方法无法返回一个notesviewentrycollection对象，似乎对象只能存在于方法中，方法结束对象会被释放，有什么解决方法吗？
16同行回答
浏览2672
回复 12# aili1wan
虽然已经更换了其他的方式完成任务，但还是比较关心这个话题，我按照你给的思路测试了一下，发现还是不能获取到vc集合，及时vw、vc都定义为全局变量，代码如下：
虽然已经更换了其他的方式完成任务，但还是比较关心这个话题，我按照你给的思路测试了一下，发现还是不能获取到vc集合，及时vw、vc都定义为全局变量，代码如下：
Option Public
Option Declare
Dim vc As NotesViewEntryCollection
Dim vw As NotesView
Sub Initialize
On Error GoTo er
Dim vc As NotesViewEntryCollection
Set vc=a()
Print |方法外：| + CStr(vc.Count)
Exit Sub
er:
Print Error & "----" & Erl
End Sub
function a() As NotesViewEntryCollection
On Error GoTo er
Dim ss As New NotesSession
Dim db As NotesDatabase
Set db=ss.Currentdatabase
Dim dc As NotesDocumentCollection
Set vw=db.Getview("vwDaibanqingjia")
Set vc=vw.GetAllEntriesByKey("Admin", True)
Print "方法内："+CStr(vc.count)+"
"
Exit Function
er:
Print Error & "+++" & Erl
End Function 但是使用db.search或vw.getalldocumentsbykey的方式获取dc集合的时候无论是否定义全局变量都是可以获得到的收起浏览2599
同12楼的思路。
很早前发现取得vc\dc后，把上层view\db 取消后，vc\dc的内容就会清空。 所以之前说定义为全局变量，是指相关用到的变量都定义为全局变量，不用了再赋nothing.收起
很早前发现取得vc\dc后，把上层view\db 取消后，vc\dc的内容就会清空。 所以之前说定义为全局变量，是指相关用到的变量都定义为全局变量，不用了再赋nothing.收起
浏览2564
问题原因：notesviewentrycollection属于view的附属，因此在函数返回notesviewentrycollection，请将view定义为公共对象。代码调整如下即可。
Option Public
Option Declare
Dim vw As NotesView
Dim vc As NotesViewEntryCollection
Sub Initialize
On Error GoTo er
Call a()
Print "方法外："+CStr(vc.count)+"
"
Exit Sub
er:
Print Error & "----" & Erl
End Sub
Sub a()
On Error GoTo er
Dim ss As New NotesSession
Dim db As NotesDatabase
Set db=ss.Currentdatabase
Set vw=db.Getview("view_BTTJ2")
Set vc=vw.GetAllEntriesByKey("张三", True)
Print "方法内："+CStr(vc.count)+"
"
Exit Sub
er:
Print Error & "+++" & Erl
End Sub收起
Option Public
Option Declare
Dim vw As NotesView
Dim vc As NotesViewEntryCollection
Sub Initialize
On Error GoTo er
Call a()
Print "方法外："+CStr(vc.count)+"
"
Exit Sub
er:
Print Error & "----" & Erl
End Sub
Sub a()
On Error GoTo er
Dim ss As New NotesSession
Dim db As NotesDatabase
Set db=ss.Currentdatabase
Set vw=db.Getview("view_BTTJ2")
Set vc=vw.GetAllEntriesByKey("张三", True)
Print "方法内："+CStr(vc.count)+"
"
Exit Sub
er:
Print Error & "+++" & Erl
End Sub收起
浏览2596
就是用List对象存数据，返回list。收起
浏览2646
不要在这个上面转圈了，你把需要的数据放到map中带回来吧。收起
浏览2669