代理搜案视图文档后无法排序有关问题

代理搜案视图文档后无法排序问题
视图中已按发布时间正常排序，如降序（新文档在最前面）。

然后，open某页面时执行代理，去视图中按类别去找其下的文档再写入当前页面的一个域来展示文档列表，得到的结果是与实际视图排序相反或乱排的，调整视图升降也不管用，不知哪里有问题。


------解决方案--------------------
Dim doc As notesDocument
Dim nVC As NotesViewEntryCollection
Dim nEntry As NotesViewEntry
Dim Db As notesdatabase
Dim view As NotesView
Dim tmpinfo As String
tmpinfo=""
Set view = Db.GetView("V_InfoPubByType") 
Set nVC =view.GetAllEntriesByKey(curdoc.CurType(0),True)

If nVC.count<>0 Then
Set nEntry = nVC.GetFirstEntry
While Not(nEntry Is Nothing)
Set doc = nEntry.Document
//////////
Else
Goto lable1
End If
Set nEntry = nVC.GetNextEntry(nEntry)
Wend
End If
lable1:
If tempinfo <> "" Then
Call curdoc.replaceitemvalue("Fd_Info",tmpinfo)
End If

用这个代码 必须解决....