Domino 9 und frühere Versionen > ND6: Entwicklung

Auslesen von Werten in Skript

(1/2) > >>

Wilhelm Weber:
Hallo zusammen,

ich hatte vor kurzem ähnliches gepostet und brüte jetzt über einer Erweiterung.

Es sollte das Feld key aus dem aktuellen Dok ausgelesen werden um dann in einer anderen Ansicht nach dem Wert von key zu suchen und ein anderes feld (ergebnis) mit Mehrfachwerten zur Auswahl einzublenden. Der Code funktioniert auch (s.u.)
Jetzt ist aufgefallen, dass es in der Ansicht z.T. den Wert key mehrmals gibt. Die Auswahl stoppt beim ersten treffer , es sollen aber alle Ergebnisse  aus allen Dokumenten , die den key-Wert enthalten angezeigt werden.

Zur Verdeutlichung:

Spalte 1   Spalte 2

key          Wert1

key          Wert4
                Wert6
                Wert7

key           wert5
                wert9


bei Auswahl des keys sollen in der PROMPT_OKCancelList dann die werte "Wert1" "Wert4"
 "Wert6" "Wert7" usw, also alle angezeigt werden.
 
Habe was mit getalldocumentbykey funktioniert, das passt aber nicht.

Hatjemand einen Tip ?

Grüße
Wilhelm


        Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim db As NotesDatabase
        Dim uidoc As notesuidocument
        Dim view As notesview
        Dim doc As NotesDocument

        Set db = session.CurrentDatabase
   Set uidoc = workspace.CurrentDocument
   look = uidoc.FieldGetText( "key" )
   Set view = db.GetView("Ansicht")
   Set doc = view.GetDocumentByKey (look, True)
   antwort = workspace.Prompt (PROMPT_OKCancelList, _
   "Bitte auswählen", "Bitte auwählen.","",   doc.ergebnis)

koehlerbv:

--- Zitat von: Wilhelm Weber am 26.11.10 - 20:35:41 ---Habe was mit getalldocumentbykey funktioniert, das passt aber nicht.
--- Ende Zitat ---

GetAllDocumentsByKey wäre schon genau das richtige Verfahren - ergibt sich nun unsererseits die Frage, wo es denn dabei nun klemmt. Die Ergebnisse (Arrays - solche sind es ja bei Notes Items ja immer) musst Du natürlich verketten.

Bernhard

Wilhelm Weber:
Hallo Bernhard,

das verketten ist das erste Problem. Die Collection zeigt 4 an bei einem Beispiel. Das passt auch, da es 4 Dokumente gibt, die den key haben. Aber wie kriege ich das in das prompt rein ???
   
Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim uidoc As notesuidocument
   Dim view As notesview
   Dim doc As NotesDocument
   Dim dc As NotesDocumentCollection

  Set db = session.CurrentDatabase
   Set uidoc = workspace.CurrentDocument
   look = uidoc.FieldGetText( "key" )
   Set view = db.GetView("Ansicht")
   Set dc = view.GetAllDocumentsByKey(look, True)
 
   antwort = workspace.Prompt (PROMPT_OKCancelList, _
   "Bitte auswählen", "Bitte auwählen.","",   ????)

koehlerbv:
ArrayAdd ist Dein Freund.

Wilhelm Weber:
Auch in Version 6?

Hab nichts in der Hilfe gefunden.

Navigation

[0] Themen-Index

[#] Nächste Seite