Фильтр Query

← →
stoper (2003-10-03 13:17) [0]

Я устонавливаю фильтрацию по какому нибудь полю все нормально.Но как только я устонавливаю фильтрацию снова, то она действует только на данные предидущего отфильтрованого набора.Т.е. даные которые не подходят под условия первой фильтрации теряются.
Что уже только не делал. На даном этапе имеем следущий код

procedure TForm3.Button1Click(Sender: TObject);
begin
if Query1.Filtered then Query1.Filtered:=false;
Query1.Filtered:=true;
end;

procedure TForm3.Query1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=(DataSet["sum1"]>=strtofloat(form3.Edit1.Text)) and (DataSet["sum1"]<=strtofloat(form3.Edit2.Text));
end;

← →
Rem © (2003-10-03 13:31) [1]

Мне особо понравился конструктив:
if Query1.Filtered then Query1.Filtered:=false;
Query1.Filtered:=true;

Обнови запрос:
Query1.Refresh;

← →
Rem © (2003-10-03 13:32) [2]

А вообще... перемести условия отбора из OnFilterRecord в условия запроса.

← →
Johnmen © (2003-10-03 13:47) [3]

>...то она действует только на данные предидущего отфильтрованого набора...

Ты это видишь где-то ? Скорее всего - да. Тогда просто обнови отрисовывание контрола, на котором видишь.

← →
stoper (2003-10-03 14:16) [4]

Rem, ты бы не умничал,запрос там не архисложный ну и не простой.Выборка идет 15 сек.Фильтр в наборе срабатывает первый раз в мгновение ока.
2 Никакие обновления не помогают . Не ужто никто не знает.

← →
Rem © (2003-10-03 14:32) [5]

>> Rem, ты бы не умничал

И осталась баба с разитым корытом...

procedure TForm3.Button1Click(Sender: TObject); begin if Query1.Filtered then Query1.Filtered:=false; Query1.Filtered:=true; end;
замени
procedure TForm3.Button1Click(Sender: TObject); begin Query1.Filtered:=false; // здесь условие фильтра .... Query1.Filtered:=true; end;

так нас в универе учили :)

> [3]

Ну попробуй DisableControls EnableControls

Фильтр Query Найти похожие ветки