Domino 9 und frühere Versionen > Entwicklung

Dokumente vergleichen und ausgeben (FtSerach)

<< < (8/8)

Selin:
Hallo,

also hier noch mal mein Script

Sub Initialize
   Dim s As New NotesSession
   Dim WS As New NotesUIWorkspace
   Dim View As NotesView
   Dim db As NotesDatabase
   Dim targetdb As New NotesDatabase( "", "VIP.nsf" )
   Dim dc As NotesDocumentCollection
   
   Dim checkdc As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim Flag As Variant
   Dim SucheName() As String
   
   Dim tmpdoc As NotesDocument
   
   
   Dim i As Integer
   Dim found As Integer
   
   Set db = s.CurrentDatabase
   Set checkdc = db.UnprocessedDocuments
   Set doc = checkdc.GetFirstDocument
   
   
   Do While Not doc Is Nothing   
      
      found = False
      
      'Prüfe Nachname und Vorname
      Set dc = targetdb.Search( |Lastname = "| + doc.LastName(0) + |" & Firstname ="| + doc.FirstName(0) + |"|,Nothing,0 )
      
      
      If dc.Count > 0 Then
         Msgbox(dc.count)
                 'Hier gibt es einen Treffer:            
         found = True
         Redim SucheName(dc.count)
         
         For i = 1 To dc.count
            Set tmpdoc = dc.getNthDocument(i)
            SucheName(i-1) = tmpdoc.LastName(0) +", " + tmpdoc.FirstName(0) +" " + tmpdoc.CompanyName(0)
            
         Next
         
         doc.Ergebnis = SucheName
               'geht nicht         
         
         doc.Aktuell =doc.Lastname(0)+ ", " + doc.FirstName(0)+ " " + doc.CompanyName(0)
         
         
         Flag = WS.Dialogbox("dialog", True, True, False, False, False, False, "Export", doc, False)
         
         
      Else
                   ' Kein Treffer: Dok. kann kopiert werden
         Call doc.CopyTodatabase(targetdb)
         
         
      End If
      Set doc = checkdc.GetNextDocument(doc)
      
      Loop   'do while not doc is nothing
End Sub

In meiner Maske Dialog habe ich ein Feld "Aktuell", dass den zu exportierenden Wert beinhaltet und noch ein Listfeld, dass die Einträge aus Ergebnis beinhaltet.
Nun möchte ich einen der Treffer aus Ergebnisliste markieren und über die Knöpfe "Ersetzen" (um den markierten Wert durch den Wert in "Aktuell" zu ersetzen) oder Hinzufügen, um den Wert aus "Aktuell" in die andere datenbank zu exportieren )

Danke

Selin:
Hallöö,

keiner ne Idee??

Navigation

[0] Themen-Index

[*] Vorherige Sete