Lotus notes 如何从共享相同文档编号的文档集合中识别上次使用Lotusscript创建的文档？

我有一个包含大约20000个文档的数据库。其中一个视图按文档编号分类并排序，以便最后创建的文档是每个类别中的第一个文档。某些类别的文档编号仅在与之关联的文档上显示，但其他类别的文档编号具有与之关联的多个文档。我想确定每个类别中最后创建的文档，并写入一个字段，将其标识为最新版本。我以为这很容易，但我有困难。任何帮助都将不胜感激

---

MJ

假设您确实有一个视图（如您所说），该视图经过排序，使得最后创建的文档是每个类别中的第一个文档，这可能很简单。在这种情况下，如果要遍历该视图，只需检索每个类别后的第一个文档，并在文档的一个项上设置一个值

比如说,

Dim s as New NotesSession
Dim db as NotesDatabase
Dim view as NotesView
Dim nav As NotesViewNavigator
Dim viewEntry as NotesViewEntry
Dim docEntry as NotesViewEntry
Dim doc as NotesDocument

Set db = s.CurrentDatabase
Set view = db.GetView("My Categorized and Sorted View")
Set nav = view.CreateViewNav
Set viewEntry = nav.GetFirst  ' Should be your first category

While Not (viewEntry Is Nothing)

    Set docEntry = nav.GetNextDocument(viewEntry)  'The first document entry after the category
    Set doc = docEntry.Document
    doc.ReplaceItemValue("Some item", "This is the latest doc")
    doc.Save(false, false)
    Set viewEntry = nav.GetNextCategory(viewEntry)  'Jump to the next category

Wend

---

假设您确实有一个视图（如您所说），该视图经过排序，使得最后创建的文档是每个类别中的第一个文档，这可能很简单。在这种情况下，如果要遍历该视图，只需检索每个类别后的第一个文档，并在文档的一个项上设置一个值

比如说,

Dim s as New NotesSession
Dim db as NotesDatabase
Dim view as NotesView
Dim nav As NotesViewNavigator
Dim viewEntry as NotesViewEntry
Dim docEntry as NotesViewEntry
Dim doc as NotesDocument

Set db = s.CurrentDatabase
Set view = db.GetView("My Categorized and Sorted View")
Set nav = view.CreateViewNav
Set viewEntry = nav.GetFirst  ' Should be your first category

While Not (viewEntry Is Nothing)

    Set docEntry = nav.GetNextDocument(viewEntry)  'The first document entry after the category
    Set doc = docEntry.Document
    doc.ReplaceItemValue("Some item", "This is the latest doc")
    doc.Save(false, false)
    Set viewEntry = nav.GetNextCategory(viewEntry)  'Jump to the next category

Wend