DominoArea.org [Archive]

je cherche un équivalent à la formule suivante@Picklist( [Name] : [Single] ) en lotus script merci d'avance

Dim workspace As New NotesUIWorkspace Dim picklist As Variant Dim messagelist As String picklist = workspace.PickListStrings( PICKLIST_NAMES ) If ( Isempty( picklist ) ) Then Messagebox "Canceled" , , "Resource selected" Else Forall plist In picklist messagelist = messagelist & plist & Chr(10) End Forall Messagebox messagelist , , "Resource selected" End If

Dim workspace As New NotesUIWorkspace Dim picklist As Variant Dim messagelist As String picklist = workspace.PickListStrings( PICKLIST_NAMES ) If ( Isempty( picklist ) ) Then Messagebox "Canceled" , , "Resource selected" Else Forall plist In picklist messagelist = messagelist & plist & Chr(10) End Forall Messagebox messagelist , , "Resource selected" End If