关于notesvew.GetAllEntriesByKey的问题
function a() as notesviewentrycollection . . . set a=notesview.getallentriesbykey(key,true) msgbox a.count '这个是有数量的 endfunction通过这个方法无法返回一个notesviewentrycollection对象，似乎对象只能存在于方法中，方法结束对象会被释放，有什么解决方法吗？
16同行回答
浏览2703
回复 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集合的时候无论是否定义全局变量都是可以获得到的收起浏览2629
Option Public
Option Declare
Dim vc As NotesViewEntryCollection
Class ox
Private ovc As NotesViewEntryCollection
Sub New
End Sub
Public Function getVc() As NotesViewEntryCollection
Dim ss As New NotesSession
Dim vw As NotesView
Dim db As NotesDatabase
Set db=ss.Currentdatabase
Set vw=db.Getview("view_BTTJ2")
Set vc=vw.GetAllEntriesByKey("张三", True)
Print "方法内："+CStr(vc.count)+"
"
Set me.ovc=vc
End Function
Property Get vcs As NotesViewEntryCollection
Set vcs=me.ovc
End Property
End Class
Sub Initialize
On Error GoTo er
Dim oxo As New ox
Call oxo.getVc()
Set vc=oxo.vcs
Print "方法外："+CStr(vc.count)+"
"
Exit Sub
er:
Print Error & "----" & Erl
End Sub回复 6# szkenszken 测试后仍然没有效果，方法外无法获取notesviewentrycollection对象收起
浏览2329
回复 5# Domino-斌少
Option Public Option Declare 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 vw As NotesView 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
浏览1196
定义一个class， 把返回值放到class 的的一个属性收起
浏览1175
浏览1159