Mehrere Spaltenwerte mit PICKLISTSTRINGS aus einer anderen DB?

[networkaccess]

Hallo,
ist es irgendwie möglich, mit Pickliststrings mehrere Spaltenwerte auszulesen?
Das Script funktioniert, aber eben mit nur einem Wert.
Wie komme ich an den 2. Wert ran?
Gruss
os
 

Sub Click(Source As Button)
   
   Dim workspace As New NotesUIWorkspace
   Dim session As New Notessession
   Dim db As NotesDatabase
   Dim db2 As Notesdatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   Dim docCurrent As NotesDocument
   Dim docResponse As NotesDocument
   Dim collection As NotesDocumentCollection
   Dim picklist As Variant
   Dim curdoc As notesdocument
   
   Set curdoc = workspace.currentdocument.document
   Set db=session.CurrentDatabase
   Set db2=session.GetDatabase("sv43-fw-domino","vito\adrvitoma.nsf")
   Set view = db2.getview("Pickasp")
   Set docCurrent = workspace.CurrentDocument.Document
   Set docResponse = New NotesDocument(db)
   Set uidoc = workspace.CurrentDocument
   
'=====================================================================================
   '===Single selection
   '=====================================================================================
   Dim tmpSelect As String
   
   
   picklist = workspace.Pickliststrings(PICKLIST_CUSTOM, False, db2.server,db2.filepath, "Pickasp", "Selection", "Select person", 10)
   If ( Isempty( picklist ) ) Then Exit Sub
   
   
   Forall plist In picklist   
      If plist <> "" Then
         tmpSelect = plist   
      End If
      
   End Forall
   
   curdoc.txtPResponsible =  Strleftback(tmpSelect,"#")
   curdoc.txtPMailResponsible = Strrightback(tmpSelect,"#")
   
   Call uidoc.Refresh
   Call docCurrent.Save(True, True)
   
        ...

End Sub

[koehlerbv]

Mit PickListStrings geht das nicht. Warum verwendest Du nicht PickListCollection?

Bernhard

[networkaccess]

Der User soll eine einzige Auswahl treffen:

wenn er 'Herbert' auswählt soll in einer Variablen

'Herbert' und in einer anderen 236 gespeichert werden...


Beispiel Ansicht:

Name              Personalnummer                Telefon
===================================
Franz              986                                     125
Herbert           634                                     236
Karl                 990                                     877


Ist das nicht bei der Collection so, das nur mehrere Werte selektiert werden können...?

[koehlerbv]

Und wofür ist dann der zweite Parameter da? 

Bernhard

[networkaccess]

Welcher 2te Parameter??
(Werde aus der sch.... Notes-Hilfe nicht schlau)

[Axel]

Hallo,
ist es irgendwie möglich, mit Pickliststrings mehrere Spaltenwerte auszulesen?
Das Script funktioniert, aber eben mit nur einem Wert.

Mit einem Trick geht das schon.

Du fügst in deine Ansicht für die Picklist eine weitere Spalte (z.B. als letzte) ein. diese versteckst du und in der Spaltenformel baust du die Felder mit einem Trennzeichen zusammen, aus denen du die Infos brauchst.
Z.B. so Feld1 + "~" Feld2.

Von der Picklist laässt du diese Spalte zurückgeben und mit StrToken kannst du die einzelnen Werte aus dem Rückgabewert extrahieren.


Axel

[Driri]

Oder, was Bernhard sicherlich andeuten wollte, Du benutzt doch PickListCollection.

Als Ergebnis bekommst Du dann eine DocCollection zurück und wenn Du den zweiten Parameter auf False setzt, enthält diese auch nur ein Document.
Darüber kannst Du dann ja auch beliebige Doc-Inhalte zugreifen.

[networkaccess]

Danke, aber ich darf an der DB, aus der ich auslese nichts ändern... (Ist unser CRM System, externe Firma)

Olaf

[Axel]

Ja, dann bleibt dir eigentlich nur PickListCollection übrig. Bernhard und Ingo haben es bereits geschrieben.

Damit hast du Zugriff auf das gesamte Dokument und kannst alle x-beliebigen Felder auslesen.


Axel