视图中排序后遍历(解决立马结贴)

[wjh971]

一个nsf有三笔文档(s_Subject为A, B, C),
文档创建顺序是C,B,A;
在库中建一视图按s_Subject升序排(即A,B,C),
如何要遍历视图时是从A-->B-->C顺序...?
Msgbox doc.s_Subject(0)不能从A-->B-->C顺序显示..如何解决..?

Sub Initialize
Dim uiworkspace As New notesuiworkspace
Dim uiview As notesuiview
Dim doc As NotesDocument

Set uiview = uiworkspace.currentview

Set doc = uiview.Documents.GetFirstDocument()
While Not (doc Is Nothing)
Msgbox doc.s_Subject(0)
Set doc = uiview.Documents.GetNextDocument(doc)
Wend
End Sub

[only4u]

用backend的类

dim s as new NotesSession
dim db as NotesDatabase
dim v as NOtesView
dim doc as NotesDocument
set db=s.currentDatabase
set v=db.getView("yoursortingviewName")
set doc=v.getFirstDocument
do while not doc is nothing

msgbox doc.s_subject(0)
set doc=v.getNextDocument(doc)


loop

[wjh971]

只想对视图中选中的文件做遍历

[only4u]

没时间去测试你说的东西，

但是，如果实在不行就先将选中的document放到folder, 记得folder的第一列要排序,然后去folder取