如何使用名称为 LotusScript PickListString 设置默认值

How to set default values for a LotusScript PickListString using Names

我在 Notes Form 的按钮上有以下代码

Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim rtn As Variant
    Dim thisDoc As NotesDocument
    Dim origNames As Variant
    Set thisDoc = ws.CurrentDocument.Document
    origNames = thisDoc.CCTo
    rtn = ws.PickListStrings(  PICKLIST_Names,True )
    If Not(Isempty( rtn)) Then
        thisDoc.CCTo = rtn
        thisDoc.CCToChanged = 1
    End If
    ws.CurrentDocument.Refresh
End Sub

选择列表工作正常并将值设置到字段 CCTo 中,但是,我需要将 origNames 中的值作为 PickList 中的一组默认值,但看不到如何到达那里。

PickListString 不使用预选选项。 我认为你应该使用 notesUIWorkspace.Prompt( )

准确地说是 PROMPT_OKCANCELLISTMULT 类型。 Notes Designer 帮助有一些示例代码。