Duplikate raus - aber schnell :)

[MrBarron]

Hallo zusammen.

Momentan befasse ich mich mit der Datenbank eines Bücherwurms . Dieser hat eine prall gefüllte Ansicht, die  praktischerweise dank ISBN-Nr. und ähnlich gelagerter Scherze mit reichlich Duplikaten gesegnet ist.

Diese sollen natürlich nicht die Ansicht zieren - ergo: Raus mit dem Pack . Aber wie?...

[Obrac]

SChmidt!!!! Ich hab Dir doch schon gesacht, wie. Du verdammter Königsmakakke!!!

[Obrac]

Set doc=View.GetFirstDocument
     While Not (doc Is Nothing)
           sKundenname=doc.Name(0)
           sKundennummer=doc.Kdnr(0)
           
           If sKundennummer<>sKundennummerAlt Then
                 Set docKunden = db.CreateDocument
                 docKunden.Form="frmKunden"
                 
                 docKunden.Kdnr = sKundennummer
                 docKunden.Name = sKundenname
                 Call docKunden.save (True, False)
           End If
           sKundennummerAlt=sKundennummer
           Set doc=View.GetNextDocument (doc)
     Wend

[MrBarron]

Hallo Bieter.

Vielen Dank für Ihre Hilfe.

[adminnaddel]

guckst du bei eknori
http://eknori.dyndns.org/knowledge/devidea.nsf/72f5593b366904104125687d004a70bc/1b51f1f2028454bec125680f002fb328?OpenDocument

[Till_21]

@ Ex-Bohlen:
Was hat dein Code mit dem Problem zu tun ?

Würd mich interessieren...

gruss / till

[Obrac]

In dem Script werden Dokumente verglichen, die in einer Ansicht direkt untereinander stehen. In dem Fall wird bei keiner Übereinstimmung ein neues Dokument mit einer anderen Maske erzeugt. Aber es dürfte ja auch nicht so schwer sein, stattdessen die Funktion einzubauen, Dokumente mit gleichen Feldinhalten zu löschen. Habe ich Dich damit befriedigt, Till_21?

[Till_21]

Das nenn ich mal Qualitätssicherung