是否可以使用对话框中的选择列表？

Question

我已经尝试过，但是当“选择列表”打开时，打开它的“对话框”窗体关闭。

我正在使用视图的Queryopendocument事件打开对话框。

Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Dim doc as NotesDocument
Dim ws as New NotesUIWorkspace
Set doc = Source.Documents.GetFirstDocument()
If not doc is Nothing then
  Call ws.Dialogbox("Item", True, True, True, False, False, False, "My Item", doc, True, True, True)
End If
'Set Continue to false to prohibit opening of the document
Continue = False
End Sub

对话框打开正常，并显示数据。

然后，在对话框窗体上，有一个按钮可以打开“选择列表”，这样我就可以选择其他项目。我希望我的选择填充对话框上的ItemName字段。

这是按钮的代码。

sContent:=@PickList( [Custom]:[Single] ; "" ; "ProductLookup" ; "Product Selector" ; "Select a product from the list"; 4);
@SetField("ItemName";"sContent")

问题是，当我单击对话框上的“选择列表”按钮并且弹出选择列表时，基础对话框关闭。

我做错什么了吗？还是这不可能？我以为我已经工作了一段时间，但现在无法正常工作。