如何使用名称为 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 帮助有一些示例代码。
我在 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 帮助有一些示例代码。