TQuery/TTable filtern ohne Daten neu abzurufen

[Dejan Vu]

Das liegt an dem 'Open' und nicht am Filter.
Ich würde das mit dem Verändern des Filters vielleicht mal so probieren

Delphi-Quellcode:

myDataSet.DisableControls;
Try
  myDataSet.Filtered := False;
  myDataSet.Filter := CreateMyNewFilter();
  myDataSet.Filtered := True;
Finally
  myDataSet.EnableControls;
end;

Vielleicht kann man das Problem damit Umschiffen. Das sieht mir nämlich nach einem Refresh-Problem im FMX-Framework aus.

[Nils S.]

Wie gesagt, das Close und Open habe ich nach dem Test hinzugefügt, wegen des Anzeigefehlers.
Und Du meinst Filtered auf False/True setzen macht einen Unterschied?

Kann ich mir noch nicht so ganz vorstellen aber ich werde das später mal ausprobieren.

[Dejan Vu]

Zitat von Nils S.:

Und Du meinst Filtered auf False/True setzen macht einen Unterschied?
Kann ich mir noch nicht so ganz vorstellen aber ich werde das später mal ausprobieren.

... Ich auch nicht, wenn ich darüber nachdenke.

[Perlsau]

Zitat von Nils S.:

Und Du meinst Filtered auf False/True setzen macht einen Unterschied?

Das ist die normale Vorgehensweise beim Setzen eines neuen Filters. Genau dafür gibt es das Filtered-Property.

[Dejan Vu]

Zitat von Perlsau:

Wenn du den Filter-String bei gesetztem Filtered-Property (filtered := true) änderst, passiert gar nichts.

Das dachte ich auch, bis ich es eben ausprobiert habe (Mit ADO). Aber da SetFilterText auch virtual ist, dürfte das individuell und unterschiedlich sein. Daher: Ausprobieren.

[Perlsau]

Zitat von Dejan Vu:

Zitat von Perlsau:

Wenn du den Filter-String bei gesetztem Filtered-Property (filtered := true) änderst, passiert gar nichts.

Das dachte ich auch, bis ich es eben ausprobiert habe (Mit ADO). Aber da SetFilterText auch virtual ist, dürfte das individuell und unterschiedlich sein. Daher: Ausprobieren.

Hast du den Filter bei aktivem Dataset und gesetztem Filtered-Property lediglich im Objekt-Inspektor geändert? In dem Fall änders sich auch bei mir die Filtermenge oder, anders ausgedrückt, bei Enter in der OI-Zelle mit dem neuen Filterwert wird der Filter gesetzt und aktiviert. Mache ich dasselbe jedoch im Code, passiert absolut gar nichts:

Delphi-Quellcode:

  IF DatMod.V_Messung.Filter = '' THEN
     DatMod.V_Messung.Filter := 'M_WERT < 100' ELSE
     DatMod.V_Messung.Filter := '';

     StatBarMain.Panels[3].Text := DatMod.V_Messung.Filter;

Erst ein Ausschalten des Filters und darauf folgendes Einschalten aktiviert hier den Filter. (getestet mit IbDac und Firebird)

[Dejan Vu]

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.

[Perlsau]

Du hast recht: auch bei mir mit IbDac und Firebird läuft das so, ebenso mit Ado und MsSQL. Ich hatte beim ersten Testen nicht daran gedacht, Filtered zuvor auf True zu setzen und daher ein falsches Testergebnis erhalten. Und die Datenmenge muß aus gutem Grund jedesmal neu eingelesen werden, wenn der Filter sich ändert, denn der Filter legt fest, was sich in der Datenmenge befindet: Ausgefilterte Datensätze sind nicht Teil der Datenmenge.