@Cancer
dein code hat einen Fehler
Delphi-Quellcode:
gesamtzahl:=gesamtzahl+DataModule2.TableVideo.IndexFieldCount;
müsste
gesamtzahl:=gesamtzahl+1;
heissen sonnst zählt er jedesmal die Anzahl der Felder der Tabelle hoch und nicht die Anzahl (felder*AnzTyp)
und du wilst doch AnzTyp haben :wink: .
und um die Anzahl der Daten zu finden gibst 2 Möglichkeiten die halbwegs schnell sind
1.
Delphi-Quellcode:
Table.Filter:='typ='+#39+Typ+#39;
Table.Filtered:=True;
anzahl:=Table1.RecordCount;
2. Die schnellste
SQL-Code:
SELECT COUNT(typ) as anzahl
FROM tabname
WHERE typ=:typ
Delphi-Quellcode:
Query1.ParamByName('typ').Text:=Typ;
Query1.Active:=True;
Anzahl:=Query1.FieldByName('anzahl').Value;
Query1.Active:=False;