简单地说,我想要 db.UnprocessedNotesViewEntries 之类的东西,就像 db.UnprocessedDocuments 一样。
问题是用户会看到一个备注视图,其中包含几个类别 1 个月:如“Jan / 2019”等,然后是 2-Bill 类型,如 HVAC 或电力或维护等。
该视图不应该有 UnProcessedDocuments。用户应该选择一个或多个类别,我想掌握所选类别,然后继续处理这些类别。
下面的代码允许我获取类别,但无法仅获取选定的类别:
Dim workspace As New NotesUIWorkspace
Dim session As New notessession
Dim db As notesdatabase
Dim view As NotesUIView
Dim nav As NotesViewNavigator
Dim entry As NotesViewEntry
Set db = session.CurrentDatabase
Set view = workspace.CurrentView
Set nav = view.View.CreateViewNav()
Set entry = nav.GetFirst
''Navigate through the selected entries (categories and detail rows) one by one.
Do Until entry Is Nothing
If entry.IsCategory Then
''just a debugging code which works as expected.
Print entry.IndentLevel
Print entry.ColumnValues(0)
Print entry.ColumnValues(1)
Print entry.ColumnValues(2)
Print entry.ColumnValues(3)
End If
Set entry = nav.GetNext(entry)
Loop
请帮忙!