DBGrid / AdoTable / Filtered >> RecordCount - Frage dazu

[ereetzer]

Guten Morgen,

standardmäßig kann ich ja leider nicht zählen wenn ich filtere. Darum hab ich mir so geholfen.

Delphi-Quellcode:

  lblCount.Caption := IntToStr(TStringGrid(DBGrid1).RowCount - TStringGrid(DBGrid1).FixedRows) + ' Datensätze gefunden'

Das Ergebnis ist soweit auch korrekt.

Nur wenn nicht gefunden wurde, ist das Ergebnis trotzdem 1.
Warum? Kann mir wer helfen?

Gruß

[Bummi]

Weil im DBGrid, auch wenn nichts gefunden wurde eine leere Zeile angezeigt wird.

Das mit dem nicht funktionierenden RecordCount kann ich nicht so ganz nachvollziehen.

Delphi-Quellcode:

  AdoDataset1.Filtered := Not AdoDataset1.Filtered ;
  Caption := IntToStr(AdoDataset1.RecordCount);

liefert mir bei passendem Filter 0 oder Anzahl ...

[ereetzer]

Danke bummi, habs eben testweise mit AdoDataSet probiert. Das geht wirklich.

Ich hatte AdoTable benutzt. Und das ging nicht.

Danke.