在嵌入式视图中撰写新文档并在 Lotus Notes 中设置字段值

Question

我有以下情况：

1. 掩码 Person 有一个嵌入视图，其中包含 Notes（关​​于此人的注释）形式的文档。
2. 面具人有一个 Person_ID 字段。

我需要在嵌入式视图中执行以下操作：

1. 创建一个新的 Notes 文档。
2. 从嵌入视图的掩码中读取字段 Person_ID。
3. 将新创建的文档中的值存储在字段 Notes_Refto 中。
4. 在编辑掩码中打开新文档。

此致 罗伯特

Answer 1

将此按钮添加到您的表单 Person，而不是嵌入视图。您可以将按钮放置在嵌入视图的正上方或正下方。

让新文档继承 Person 文档的字段，例如 Person_ID 字段。

Answer 2

如果你想在嵌入视图中执行操作，你可以这样做：

在嵌入视图中创建动作。使用公式 运行 代理

@Command([RunAgent]; "(CreateNotes)")

代理应如下所示：

Dim personDoc As NotesDocument
Set personDoc = workspace.Currentdocument.Document

Dim notesDoc As New NotesDocument(app.CurrentDatabase)

Call notesDoc.Replaceitemvalue("Form", "Notes")
Call notesDoc.Replaceitemvalue("Person_ID", personDoc.ID(0))

Call workspace.Editdocument(True, notesDoc)