DBColumn in LotusScript

    Es funktioniert. Ich bin so Happy.


    Würd nur jetzt auch gern wissen, ob ich es verstanden hab:


    Sub Click(Source As Button)
    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument


    Set uidoc = workspace.CurrentDocument
    <b>'Ich sag meinem Workspace, dass uidoc mein aktuelles Dokument ist</B>


    Set dc = workspace.PicklistCollection(PICKLIST_CUSTOM, False, "","Test.nsf","Lieferanten",_
    "Lieferanten","Bitte Lieferanten wählen","")
    <b>'Es öffnet sich eine Dialogbox mit der Ansicht "Lieferant"</b>


    If Not (dc Is Nothing) Then <b>'wenn dc nicht leer ist</b>
    Set doc = dc.GetFirstDocument <b>'ich sag dc, dass es doc das erste ausgewählte Dokument geben soll</B>
    If Not (doc Is Nothing) Then <b>'wenn doc nicht leer ist</b>
    uidoc.Document.Ort = doc.GetItemValue("Ort")(0)
    <b>'Nehme den Inhalt aus dem Feld Ort im Dokument doc und pack diesen in das Feld Ort des Dokumetes uidoc
    Aber wofür ist: (0)??</b>
    '... hier geht Dein Code weiter
    End If
    End If


    Print dc.count
    End Sub

    Soweit richtig!


    Etwas genauer dc.GetFirstDocument heisst = schreibe in doc das erste Dokument der Collection


    zu doc.GetItemValue("Feld")(0)


    GetItemValue hat als Rueckgabewert einen Variant-Datentyp unabhaengig davon, was "Feld" fuer einen Typ hat.
    Auch kommt noch hinzu, dass dieser Rueckgabewert immer als Array zurueckkommt, egal, ob das "Feld" als "multivalue" oder nicht definiert wurde.


    Andreas