На форме присутствуют компоненты DBGrid1, Table1, DataSource1, Edit1. Я написал следующий код для фильтрации в DBGrid1:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)>0 then
Table1.Filtered:=true
else
Table1.Filtered:=false;

Table1.Filter:='Famil>'''+FindEdit.Text+'''';
end;

Проблема вот в чем. Разные глюки идут. Подскажите как лучше осуществить фильтрацию.
P.S. 1). Токо прошу подсказать при условии что Qyeru1 на форму не добовлять.
2). Или как грамотно добавить Qyeru1 и подключить как для осуществления фильтрации.

По-моему надо сначало задавать фильтр, а потом свойство Filtered в True или False

Код

Table1.Filter:='Famil>'''+FindEdit.Text+''''; if Length(Edit1.Text)>0 then Table1.Filtered:=true else Table1.Filtered:=false;

Попробую правда не знаю что получиться? А как еще можно задать фильтрацию кроме указанного способа, подскажите? Лучше с примером.

Цитата

Table1.Filter:='Famil>'''+FindEdit.Text+'''';

Ну как вариант, чтобы не заптаться с опострофами:

Код

Table1.Filter:='Famil>' + chr( 39 ) + Edit1.Text + chr( 39 );

У меня при всех вариантах что то фильтруется, но при этом фигня какаято выскакивает. А именно. Когда я отфилтровал по первому значению все ОК. Когда фильтрую по второму то остается и первое и второе отфильтрованное значение как будто фильтрация предыдущих значений гдето сохраняется. Люди - программисты помогите справиться с этой бедой. !! Плиз!

Покажи код двух фильтраций

Скорее всего после первой фильтрации ты не приводишь таблицу к первоначальному виду и фильтруешь уже оставшиеся записи. Или нет?

bFilterFilials - глобальная переменная
если true, то можно фильтровать



procedure TfmMain.tZayFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
if bFilterFilials then
Accept := DataSet['ZFilial'] = lcbFilials.KeyValue;
end;

procedure TfmMain.tZayFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
if DataSet['ZFilial'] = 'филиал' then
Accept := true;
end;

если Accept = true, то запись попадет в набор данных
и так попадут в набор данных все записи, которые имеют значение 'филиал' в поле 'ZFilial'




это событие срабатывает тогда, когда ты выполняешь фильтрацию, причем в свойсве
Filter не обязательно должно быть выражение фильтрации, просто выполняешь

Код
Table1.Filtered:=True


т.е. здесь можно фильтровать записи с помощью язывка высокого уровня, а не пятью операторами SQL


http://forum.vingrad.ru/index.php?showtopi...ead=1&hl=фильтр

Цитата(User @ 16.11.2004, 09:10)

У меня при всех вариантах что то фильтруется, но при этом фигня какаято выскакивает. А именно. Когда я отфилтровал по первому значению все ОК. Когда фильтрую по второму то остается и первое и второе отфильтрованное значение как будто фильтрация предыдущих значений гдето сохраняется. Люди - программисты помогите справиться с этой бедой. !! Плиз!

Вот и у меня то-же самое...

Коця, покажи код

procedure TForm1.Edit1Change(Sender: TObject);
begin

Table1.Filtered:=false;
Table1.Filter:='FIO>'''+Edit1.Text+'''';
if Length(Edit1.Text)>0 then
Table1.Filtered:=true
else
Table1.Filtered:=false;
end;

динамическая фильтрация

Код

procedure TForm1.Edit1Change(Sender: TObject); begin  Table1.Filtered:=False;  Table1.Filter:='LAST_NAME = '+QuotedStr(Edit1.Text+'*');  Table1.Filtered:=true; end;

Это сообщение отредактировал(а) dsergey - 17.2.2005, 16:25

чтоб при удалении символов с Едита фильтрация отменялать нада добавить

procedure TListClients.Edit1Change(Sender: TObject);
begin
Form1.Table1.Filtered:=False;
Form1.Table1.Filter:='LAST_NAME = '+QuotedStr(Edit1.Text+'*');
if Length(Edit1.Text)>0 then
Table1.Filtered:=true
else
Table1.Filtered:=false;
end;

А можно просто запросами, правда если у тебя таблица подключена через Query

begin
Query1.Active :=False;
Query1.TextSQL :='SELECT Телефон FROM NAME WHERE Телефон =:Edit1.Text';
Query1.Active :=True;
end;

Писал по памяти, так как дельфи под рукой нет, возможны ошибки.
Добавлено @ 11:12
Да забыл сказать, в самом Query нужно очищать список!
Query1.SQLText.Create; - вроде так

Код

procedure TfmFind.bbFindClick(Sender: TObject); Var S,dom,kv:String; begin  with fmMain do begin    if edFind.Text='' then begin      beep;      ShowMessage('Отсутствует текст для поиска');      edFind.SetFocus;    end else    begin      sbFilter.SimpleText:='Идет фильтрация...';      tPhone.Close;      dsPhone.DataSet:=qFilter;      qFilter.DisableControls;      //заменяем знак звезды на знак процента      s:=AnsiUpperCase(StringReplace(edFind.Text,'*', '%', [rfReplaceAll]));      Case cbFind.ItemIndex of        0: begin             qFilter.Close;             qFilter.SQL.Clear;             qFilter.SQL.Add('SELECT ID, TEL, NAM, UL, D, K, MEMO FROM "Tel_db.DB" Tel_db WHERE UPPER(tel) LIKE '+QuotedStr(s));             qFilter.Prepare;             qFilter.Open;           end;        1: begin             qFilter.Close;             qFilter.SQL.Clear;             qFilter.SQL.Add('SELECT ID, TEL, NAM, UL, D, K, MEMO FROM "Tel_db.DB" Tel_db WHERE UPPER(nam) LIKE '+QuotedStr(s));             qFilter.Prepare;             qFilter.Open;           end;        2: begin             if edDom.Text = '' then edDom.Text:='*';             if edKvart.Text = '' then edKvart.Text:='*';             dom:=StringReplace(edDom.Text,'*', '%', [rfReplaceAll]);             kv:=StringReplace(edKvart.Text,'*', '%', [rfReplaceAll]);             qFilter.Close;             qFilter.SQL.Clear;             qFilter.SQL.Add('SELECT ID, TEL, NAM, UL, D, K, MEMO FROM "Tel_db.DB" Tel_db WHERE UPPER(ul) LIKE '+QuotedStr(s)+' AND D LIKE '+QuotedStr(Dom)+ ' AND K LIKE '+QuotedStr(kv));             qFilter.Prepare;             qFilter.Open;           end;        3: begin             qFilter.Close;             qFilter.SQL.Clear;             qFilter.SQL.Add('SELECT ID, TEL, NAM, UL, D, K, MEMO FROM "Tel_db.DB" Tel_db WHERE UPPER(D) LIKE '+QuotedStr(s));             qFilter.Prepare;             qFilter.Open;           end;        4: begin             qFilter.Close;             qFilter.SQL.Clear;             qFilter.SQL.Add('SELECT ID, TEL, NAM, UL, D, K, MEMO FROM "Tel_db.DB" Tel_db WHERE UPPER(K) LIKE '+QuotedStr(s));             qFilter.Prepare;             qFilter.Open;           end;      end;//case      qFilter.EnableControls;      sbFilter.SimpleText:='Фильтрация закончена';    end;  end; end;