Tabelle Abfragen

Hallo Jürgen,
Doppelte finde ich mit folgendem Skript:

- Tabelle muss aktiv sein
- Kriterienfeld muss aktiv sein.

theTabel = av.GetActiveDoc
theActiveField = theTabel.GetActiveField
IF (theActiveField = NIL) THEN
MsgBox.Info("Es muss ein Feld aktiv sein.", "Hinweis")
Return NIL
END
theVTab = theTabel.GetVTab
theNumOfRecs = theVTab.GetNumRecords
theBitmap = theVTab.GetSelection
theBitmap.ClearAll
theList = {}

ncount = 1

FOR EACH i IN 1..theNumOfRecs

nCount = nCount + 1
av.SetStatus((nCount / theNumOfRecs) * 100)

expr = "(["+theActiveField.AsString+"] = "+i.asString+")"
theVTab.Query(expr, theBitmap,#VTAB_SELTYPE_NEW)
theVTab.UpdateSelection

IF (theBitmap.Count > 1) THEN
FOR EACH rec IN theBitmap
theList.Add(rec.Clone)
END
END
END

av.SetStatus(100)

theBitmap.ClearAll

FOR EACH i IN theList
theBitmap.Set(i)
END
ListNumb = theList.Count
MsgBox.Info("Insgesamt "+ListNumb.AsString+" doppelte Einträge", "Doppelte Einträge")

Viel Spaß
Johannes

Man kann auch das Feld markieren, eine Feldstatistik erstellen, die Ergebnistabelle an die Originaltabelle joinen und dann auf "count > 1" abfragen.

Bei den "Memo Tools" (http://arcscripts.esri.com/details.asp?dbid=13041) gibt es die Option "Find Duplicates". Damit lassen sich für ein Feld doppelte/mehrfache Einträge finden. Diese werden selektiert und in einem neu angelegten Feld mit einem Attribut versehen.

Gruß Asmus