按钮单击事件 - Lotus 脚本

Question

我想要用于按钮单击事件的正确 Lotus 脚本，单击时会弹出工作人员的关键字列表以选择并放置在上级 1 字段上...我不确定要给出的参数...请帮助我.. 。我按照下面的脚本操作，但它不起作用...它显示在一个空的对话框列表中...:(...或者为我提供一个替代公式或总和来解决这个问题...非常感谢...

Sub Click(Source As Button)
    Dim session As New notessession
    Dim view,view1 As NotesView 
    Dim doc,doc1 As notesdocument
    Dim db As Notesdatabase
    Set db=session.CurrentDatabase 

    Dim Overdb As notesdatabase

    Set Overdb=session.GetDatabase(db.server, "Master\\ASEAN_Staff.nsf")

    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim picklist As Variant
    Set uidoc = workspace.CurrentDocument

    If Superior1= "" Then

        Sup1$ = uidoc.FieldGetText("Superior1")

        picklist = workspace.PickListStrings( PICKLIST_CUSTOM,_
        False,_
        db.server,_
        "Master\\ASEAN_Staff.nsf",_
        "x_asean_search",_
        "Select Name",_
        4,_
        Sup1$ ) 


    End If

End Sub

非常感谢 Hristo 和 mbonaci...:) 我已经用 pickliststrings 搞定了，我已经得到了我想要的，即显示按组列分类的 super1 关键字列表...下面是我使用的脚本...

Sub Click(Source As Button)
Dim session As New notessession
Dim view As NotesView 
Dim view1  As notesview
Dim doc,doc1 As notesdocument
Dim db As Notesdatabase
Set db=session.CurrentDatabase 

Dim Overdb As notesdatabase

Set Overdb=session.GetDatabase(gsserver, gspath + "Master\\ASEAN_Staff.nsf")

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim picklist As Variant
Set uidoc = workspace.CurrentDocument

If Superior1= "" Then

    'Sup1 = uidoc.FieldGetText("Superior1")

    'Ofc = uidoc.FieldGetText("Office")
    Gp = uidoc.FieldGetText("Group")
    'og = doc.Office + doc.Group


    picklist = workspace.PickListStrings( PICKLIST_CUSTOM,_
    False,_
    gsserver,_
    "Master\\ASEAN_Staff.nsf",_
    "x_asean_search",_
    "Select Name",_
    "Choose",_
    1,_
    Gp ) 



End If

End Sub

现在，从列表中选择任何关键字...例如：“Executive”应该放置在当前文档/表单的“Superior1”字段中...wazz 这个脚本...请帮助我...

Answer 1

正如所写，PickListStrings 应该会导致错误，因为第七个位置缺少参数 - prompt$ (PickListStrings 帮助） Notes 不需要数字（在本例中为 4）作为参数。

除此之外：

• 您是否尝试打开目标视图（“Master\ASEAN_Staff.nsf”中的“x_asean_search”）并从字段 Superior1 （您测试的值）中输入字符串以确保存在这样的类别？如果视图中存在该类别，焦点应移至该类别。
• 尝试在状态栏中打印 Sup1$ 以确保它包含预期值。
• 视图的第四列是您想要返回的值吗？

不会造成问题，但请记住：

• Dim view,view1 As NotesView 声明了 Variant 类型的变量 view 和 view1 NotesView 类型的。将它们放在不同的行上以避免出现意外行为的可能性。例如，这里的语句 If (view is Nothing) Then 将导致“类型不匹配”错误。
• If Superior1= "" Then 中的变量 Superior1 似乎是值为 EMPTY 的变体，因此条件始终为 true。使用 Option Declare 是一种很好的做法，可以防止编译。

Answer 2

为什么不简单地使用带有 @DbColumn 公式的对话框列表字段作为选择（字段属性的第二个选项卡）：

@DbColumn( class : cache ; server : database ; view ; columnNumber )

示例：

@DbColumn( "ReCache"; ""; "x_asean_search"; 4 )

将返回当前数据库的“x_asean_search”视图的第四列中的所有值。

详细信息在这里：
http:// /publib.boulder.ibm.com/infocenter/domhelp/v8r0/topic/com.ibm.designer.domino.main.doc/H_DBCOLUMN_NOTES_DATABASES.html