Domino 9 und frühere Versionen > ND6: Entwicklung

Vergleich von zwei Listen

(1/3) > >>

Wilhelm Weber:
hallo zusammen,

folgendes möchte ich machen.

Aus dem aktuellen Dokument zwei Felder mit einfachem Text-Wert auslesen.
Dann in eine andere Ansicht wechseln. Dort alle Dokumente durchsuchen. In diesen dokumenten gibt es felder mit mehrfachtextwerten. Sollte in einem dieser Dokumente die beiden einfach werte in diesen Mehrfachwerten enthalten sein, soll im aktuellen Dok ein drittes feld mit einem wert des Doks aus der view gefüllt werden.
Mein problem ist wohl , dass ich sowas wie @Ismember nicht nach Skript bekommen.

hier der Code bisher

Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim loopdoc As NotesDocument
   Dim view As NotesView   
   Dim value1 As Variant
   Dim value2 As Variant
   
   Set db = session.CurrentDatabase
   Set doc = ws.CurrentDocument.Document
   value1 = doc.feld1(0) ' EInfachwert
   value2 = doc.feld2(0) ' Einfachwert
   
   Set view = db.GetView("suche")
   Set loopdoc = view.GetFirstDocument()
   While Not(loopdoc Is Nothing)
      If loopdoc.mehrfachwert1(0) = value1 & loopdoc.mehrfachwert2(0) = value2  Then
         doc.feld3 = loopdoc.feldxy
      Else
         Set loopdoc = view.GetNextDocument(loopdoc)   
      End If
   Wend

Mitch:
Ich glaube die Funktion "ArrayGetIndex" könnte dir weiter helfen...

Gruß,

Mitch

Wilhelm Weber:
Hallo Mitch,

danke für den Tip.

hab rumprobiert, aber irgendwie passt es nicht ...?

hast du noch mehr Infos ?

Grüße
Wilhelm

koehlerbv:
Was passt nicht? ArrayGetIndex ist das, was Du gesucht hast!

Bernhard

Wilhelm Weber:
Hallo Bernhard,

habe es so probiert..

If Arraygetindex(mehrfachwert1(),value1)   <> Null &   Arraygetindex(mehrfachwert1(),value2) <> Null Then
doc.feld3 = loopdoc.feldxy

Fehlermeldung: Wrong nummer of array subscripts..

Bin nur Admin..:-(

Navigation

[0] Themen-Index

[#] Nächste Seite