Per Picklist Collecion Feld ausfüllen

  • Hallo zusammen,
    ich habe eine denke ich einfache Frage.
    Ich würde gerne per PicklistCollection ein Feld automatisch ausfüllen lassen. Die Picklist erscheint auch schon, soweit bin ich, aber jetzt komme ich nicht so richtig weiter.


    Dim session As New NotesSession
    Dim workspace As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim collection As NotesDocumentCollection
    Dim doc As NotesDocument
    Dim item As NotesItem
    Set db = session.CurrentDatabase

    Set collection = workspace.PickListCollection(3,False,db.server,db.FilePath,"HotelNOrt","Hotel auswählen","Bitte wählen sie ihr gewünschtes Hotel aus.")

    Soweit funktioniert es schon. Wie geht es jetzt weiter, dass er sich den wert der dritten Spalte merkt und den dann ins Feld speichert?


    Vielen dank schon mal!!


    Der Notes-Anfängerentwickeler :)

    • Offizieller Beitrag

    jetzt musst Du noch die Dokumente holen

    Code
    set doc = collection.GetFirstDocumentWhile not doc is Nothing ....set doc = collection.GetNextDocument(doc)Wend


    anstelle der ... musst Du noch die entsprechenden Felder aus dem Dokument auslesen und zum Schluss noch ins UiDoc schreiben.

    Code
    set uidoc = workspace.CurrentDocument
    uidoc.FieldSetText("DeinFeld", tempString)


    Gruß
    Dirk

    Rein logisches Denken verschafft uns keine Erkenntnis über die wirkliche Welt.
    Alle Erkenntnis der Wirklichkeit beginnt mit der Erfahrung und endet mit ihr.
    Alle Aussagen, zu denen man auf rein logischen Wegen kommt, sind, was die Realität angeht, vollkommen leer.
    Albert Einstein