Lotus notes 获取Lotus中第一个不返回任何内容的文档

当我试图访问当前视图中所选文档的字段时，我什么也得不到。。 我的代码：

---

它永远不会进入if，因为doc总是空的。。当我删除if时，当getitemvalue尝试获取某些内容但无法获取时会出现错误。GetFirstDocument因为集合为空而不返回任何内容。如果没有带有复选标记的select文档，则会发生这种情况<代码>uiview.Documents仅传递选定的文档，而不传递突出显示的文档

如果您只想查看突出显示的文档（框架文档） 那么这就行了：

子单击（源代码为按钮）
将会话设置为新便笺会话
标注文档作为注释文档
设置doc=session.DocumentContext
如果不是，那么doc什么都不是
接收=doc.GetItemValue（“字段名”）（0）
打印接收
如果结束
端接头

session.DocumentContext

返回视图中突出显示的文档

如果要查看所有选定的文档

您可以使用稍加修改的代码

子单击（源代码为按钮）
将ws设置为新工作区
将uiview设置为NotesUIView
将dc设置为备注文档集合
标注文档作为注释文档
设置uiview=ws.CurrentView
Set dc=uiview.Documents
Set doc=dc.GetFirstDocument
而不是（doc什么都不是）
打印doc.GetItemValue（“字段名”）（0）
Set doc=dc.GetNextDocument（doc）
温德
端接头

试试这个（关键是“未处理的文档”）：

当前选定的（突出显示或勾选的）文档将填充文档集合

干杯

Sub Click(Source As Button)
  Dim ws As New NotesUIWorkspace
  Dim uiview As NotesUIView 
  Dim dc As NotesDocumentCollection 
  Dim doc As NotesDocument 
  Dim receive As String 
  Set uiview=ws.CurrentView
  Set dc=uiview.Documents
  Set doc=dc.GetFirstDocument
  If doc Is Not Nothing Then
    receive=doc.GetItemValue("Field name")
  End If
End Sub

Sub Click (Source as Button)
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim DocColl As NotesDocumentCollection
    Dim doc As NotesDocument
    Set db = s.CurrentDatabase
    Set DocColl = db.UnprocessedDocuments
    Set doc = DocColl.GetFirstDocument()
    if not (doc is Nothing) then
        Print doc.GetItemvalue("FieldName")(0)
    End if
End Sub