Workspace.ComposeDocument 以及 QueryOpen 和 PostOpen 事件

Question

我使用以下代码在另一个表单的操作中创建文档：

Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim NewItemDoc As NotesUIDocument
    Dim ParentUNID As String

    ParentUNID = ws.CurrentDocument.Document.UNID(0)

    Set NewItemDoc = ws.ComposeDocument("","","Item")

    Call NewItemDoc.Document.ReplaceItemValue("ParentUNID", ParentUNID)
End Sub

我在 Item 表单的 QueryOpen 和 PostOpen 事件中有代码处理程序，但是它们根本没有运行。当我使用 @Command([Compose]) 时，就被调用了。

调试 LotusScript 时，它不会单步执行这些事件处理程序。

我如何获得 LotusScript 中的等效项？ 即如何触发 QueryOpen 和 PostOpen 事件？

Answer 1

根据您的经验，只有两件事。

虔诚地、始终地使用“选项声明”，（始终）在您的子程序、函数和 UI 事件中包含错误捕获。真正节省时间。使用您的代码示例，我用于 UI 错误处理的经典代码是

Sub Click(Source As Button)
    on error goto errHandle
    Dim ws As New NotesUIWorkspace
    Dim NewItemDoc As NotesUIDocument
    Dim ParentUNID As String

    ParentUNID = ws.CurrentDocument.Document.UNID(0)

    Set NewItemDoc = ws.ComposeDocument("","","Item")

    Call NewItemDoc.Document.ReplaceItemValue("ParentUNID", ParentUNID)
    Exit Sub 
  errhandle:
    MessageBox Lsi_info(2) + " : " + Str(Err) + " - " + Error(Err) + ", at line " + Str(Erl)
    Exit Sub 
End Sub

您可以选择使用打印语句或更复杂的东西来记录错误。必不可少。 LSI_Info 函数（更多信息这里）已经存在了一段时间并且已经对我来说使用从来都不是问题。

其次，当您从 LotusScript 启动新表单时，LotusScript 调试器不会使用新表单运行。这是因为 LotusScript 调试器一次仅在一个“UI 进程线程”上运行，启动一个新的 UI 表单（不是对话框），运行一个新实例。我在这里相当宽松地使用术语“进程线程”，因为我试图区分 UI 表单是相互独立的并且不交互，因此调试器不会遵循新表单。

与对话框的行为不同，对话框的行为是模态的。调试器也不会进入对话框（请记住，您将收到该警告消息），并且当您关闭表单时，调试器将返回到原始表单，因为它直接链接到原始 UI 线程。