视图有数据，搜索出来的总数显示为0，请大神指点

视图里有数据，根据单据的UNID取视图里取数据,

Dim ViewH As NotesView

Dim VcH As NotesViewEntryCollection       

Dim entryH As NotesViewEntry               

Dim DocH  As  NotesDocument       

Set ViewH=Db.Getview("v_list_HangMingXi")       

Set VcH = viewH.GetAllEntriesByKey(UNID,True)                

MsgBox VcH.Count       

MsgBox UNID               

For i=1 To VcH.Count    ' 查找本文档的行项目       

Set entryH=VcH.GetNthEntry(i)               

Set DocH = entryH.Document               

MsgBox DocH.Getfirstitem("ARBPL").Text       

If Left(DocH.Getfirstitem("ARBPL").Text,2) = "11" Then

          DiffDocTime = True

        Else                       

DiffDocTime = False

        End If                       

Next

这里显示VcH.Count一直为0，