Hallo,
mein Agent durchläuft alle markierten Dokumente und soll die Feldinhalte von 3 Feldern (f1, f2, f3) mit den Feld-Inhalten aller Dokumente in einer "alten" Datenbank vergleichen. Falls diese 3 Felder gleich sind, sollen einige Felder aus der alten DB in die neue übernommen werden.
Der unten stehende Code ist relativ langsam (pro Dok. ca. eine Sekunde). Sowohl in der neuen Datenbank als auch in der alten Datenbank befinden sich ca. 500 Dokumente.
Wer hat eine Idee, wie ich das schneller lösen kann?
Danke im voraus
Code
'Schleife über alle ausgewählten Dok in der aktuellen DB
While Not(doc Is Nothing)
f1=doc.field1(0)
f2=doc.field2(0)
f3=doc.field3(0)
Set docalt = viewalt.GetFirstDocument
'Schleife über alle Dok in der alten.nsf
While Not(docalt Is Nothing)
If f1 = docalt.f1(0) Then
If f2 = docalt.f2(0) Then
If f3 = docalt.f3(0) Then
'Daten aus dem alten Dokument in aktuelles Dokument übernehmen
End If
End If
End If
Set docalt = viewalt.GetNextDocument(docalt)
Wend
Set docalt=Nothing
Set doc = coll.GetNextDocument(doc)
Wend
Alles anzeigen