Ich habe als Test eine Tabelle mit einer Spalte, die 5 unterschiedlicher Werte annehmen kann, genommen. Dann einen Button auf die Form und im Buttonclick:
Delphi-Quellcode:
Procedure TForm.ButtonClick(Sender : TObject);
Begin
id := id mod 5 + 1;
myDataSet.Filter := 'ColumnType = '+intToStr(id);
end;
Dann noch ein Grid, ein Dataset, mit der Datenbank verbunden und los. Nun klicke ich auf den Button und sehe im Grid nacheinander jeweils die Einträge mit 'ColumnType=1', 'ColumnType=2' usw.
Funktioniert also. Dann habe ich das so geändert, das ich noch id=6 nehme und dann den Filtertext leere, also so:
Delphi-Quellcode:
Procedure TForm.ButtonClick(Sender : TObject);
Begin
id := id mod 6 + 1;
if id=6 then
myDataSet.Filter := ''
else
myDataSet.Filter := 'ColumnType = '+intToStr(id);
end;
Funzt auch.