Lotus notes 是否可以在lotus notes对话框中传递参数

我有一个表单，有两个字段，分别称为“字段1”和“字段2”，还有一个操作按钮，称为“检查”。单击该操作按钮，我想打开包含三个字段的对话框，这三个字段应根据字段2的值自动填充。如何实现

---

如果有人帮助我，我将不胜感激。

是的，这是可能的。对于

NotesUIWorkspace.DialogBox（）

，有一个

document

参数。使用此文档将参数传递给对话框

---

更新

假设您有一个名为“MyDialogForm”的表单来表示您的对话框

它看起来是这样的，包含3个字段：

您有一个带有两个字段和“检查”按钮的表单：

将以下代码放入“检查”按钮的“单击”事件处理程序：

此代码读取“Field2”，并根据其值填充对话框字段。然后显示对话框，您可以在其中更改这些值

---

如果您在对话框中按“确定”（对话框已接受），代码将显示您在对话框中更改的值。

是，这是可能的。对于

NotesUIWorkspace.DialogBox（）

，有一个

document

参数。使用此文档将参数传递给对话框

---

更新

假设您有一个名为“MyDialogForm”的表单来表示您的对话框

它看起来是这样的，包含3个字段：

您有一个带有两个字段和“检查”按钮的表单：

将以下代码放入“检查”按钮的“单击”事件处理程序：

此代码读取“Field2”，并根据其值填充对话框字段。然后显示对话框，您可以在其中更改这些值

---

如果您在对话框中按OK（接受对话框），代码将显示您在对话框中更改的值。

您能详细地说出来吗？因为我是新来的technology@Sathish请检查我的更新。我想它回答了你的问题。回答得很好。但我不同意结尾的“请注意”这句话：如果您只是将DialogBox的第四个参数设置为“False”，而不是示例中的“True”，那么它还将返回新创建的字段，如文档所述：

noNewFields:Boolean。可选。指定True以不添加对话框窗体上但尚未包含在基础文档中的字段。否则，所有对话框字段都将传递给基础文档@TorstenLink是的，你说得对。修正了我的答案。谢谢。@Sathish欢迎：）请接受答案（答案上下箭头下方的绿色标记），以帮助其他用户稍后找到此答案。您能详细地说出来吗？因为我是新来的technology@Sathish请检查我的更新。我想它回答了你的问题。回答得很好。但我不同意结尾的“请注意”这句话：如果您只是将DialogBox的第四个参数设置为“False”，而不是示例中的“True”，那么它还将返回新创建的字段，如文档所述：
noNewFields:Boolean。可选。指定True以不添加对话框窗体上但尚未包含在基础文档中的字段。否则，所有对话框字段都将传递给基础文档@TorstenLink是的，你说得对。修正了我的答案。谢谢。@Sathish欢迎：）请接受答案（答案上/下箭头下方的绿色标记），以帮助其他用户稍后找到此答案。
Sub Click(Source As Button)
    Const DIALOG_FORM_NAME = "MyDialogForm"

    Dim ws As New NotesUIWorkspace
    Dim dialogBoxAccepted As Boolean
    Dim dialogParamDoc As NotesDocument

    Dim currentDocument As NotesDocument    
    Dim field2Value As String

    Set currentDocument = ws.CurrentDocument.Document 
    field2Value = currentDocument.GetItemValue("Field2")(0)

    'document created in-memory, but should not be saved
    Set dialogParamDoc = New NotesDocument(currentDocument.ParentDatabase)

    'populating dialog box fields
    Call dialogParamDoc.ReplaceItemValue("DialogField1", "dialogField1 with: " + field2Value)
    Call dialogParamDoc.ReplaceItemValue("DialogField2", "dialogField2 with: " + field2Value)
    Call dialogParamDoc.ReplaceItemValue("DialogField3", "dialogField3 with: " + field2Value)

    dialogBoxAccepted = ws.DialogBox(DIALOG_FORM_NAME,True , True, False, False  , False , False, "My Dialog Title", dialogParamDoc, True)
    If dialogBoxAccepted Then
        'displaying values, entered/changed in dialog box
        Msgbox dialogParamDoc.getItemValue("DialogField1")(0),,"DialogField1"
        Msgbox dialogParamDoc.getItemValue("DialogField2")(0),,"DialogField2"
        Msgbox dialogParamDoc.getItemValue("DialogField3")(0),,"DialogField3"
    End If
End Sub