Всем привет!

У меня вопрос, посмотрел тут тему про фильтрацию, данных в DBGrid'е,
но не понял её, я в деле программирования недавно и не совсем понял, как правильно это сделать.
Попытаюсь описать проблему:

в Table1.OnFilterRecord, я прописываю функцию Acept:= и далее прописываю, по какоуму значению производить фильтр данных, в данном случае по дате, то есть отобразить все строки содержащие чило например 12.12.2004, первое применение фильтра проходит с блеском, но при попытке применить второе фильтрование, то есть показать уже строки с числом 23.01.2005, он нечего не показывает вообще, может быть я что то делаю не так, ну канечно по любому, я делаю что то не так, но ЧТО, изломал всю голову!

Друзья мои, кто знает КАК это сделать, подскажите, дайте пример, если можно по подробней и по возможности несколько.

Заранее всем благодарен!

ответить не могу, но могу подсказать где скачать русскую справку по delphi
скачивать здесь
http://delphi-help.chat.ru/download.html
может поможет

Sett AFAIK там подобие SQL дополнительного условия... которое в принципе может быть включено в сам запрос, который QUERY... но TABLE не дает такой возможности... т.к. выбирает всю таблицу... поэтому там и есть такая фильтрация...

Похоже на то, что ты хочешь вывести записи с первым фильтром, а потом из получившегося отфильтровать со вторым - ессно там ничего не будет.

Bes а как нужно

Смотри, что я пытался тебе сказать:
Предположим есть набор значений.
а
а
а
а
с
с
с
с
ты к ним применяешь фильтр "а", т.е. говоришь мол покажи мне все что РАВНО "а" набор становится следующим
а
а
а
а
потом тыприменяеш фильтр "с" т.е. говоришь мол а теперь из ПОЛУЧИВШЕГОСЯ покажи мне все что равно "с", но т.к. в получившемся наборе эсок не было, то есссно он тебе ничего и не покажет.
Вывод: Надо снять предыдущий фильтр, т.е. типа покажи все.
А потом применять новый.
И показал бы как ты это делаешь - проще бы было, а то может это все зря написано... :-)

Цитата(Bes @ 28.2.2005, 16:07)

Смотри, что я пытался тебе сказать: Предположим есть набор значений. а а а а с с с с ты к ним применяешь фильтр "а", т.е. говоришь мол покажи мне все что РАВНО "а" набор становится следующим а а а а потом тыприменяеш фильтр "с" т.е. говоришь мол а теперь из ПОЛУЧИВШЕГОСЯ покажи мне все что равно "с", но т.к. в получившемся наборе эсок не было, то есссно он тебе ничего и не покажет. Вывод: Надо снять предыдущий фильтр, т.е. типа покажи все. А потом применять новый. И показал бы как ты это делаешь - проще бы было, а то может это все зря написано... :-)

Точно именно такой пример, я и имею в виду.

Покажите ктонибудь, работающий исходник, код

Насколько я знаю фильтрацию в TTable - там одновременно может применяться только один фильтр...

Я бы делал через query там эта проблема отпадает сама собой.
А через тэйбл... - дак перед тем как изменить фильтр, просто очищай его... х его з я тэйблами не пользуюсь, поскольку это "кастрация" SQL, но это только мое мнение. :-)
щас мой комп в эксперименте - потом могу дать АДОКвери рабочий пример.

Цитата(Bes @ 2.3.2005, 09:09)

Я бы делал через query там эта проблема отпадает сама собой.

Согласен... Тоже предпочитаю квери...

Вот примерчик, лень делать ему обрезание, лучше сам спрашивай, что не поймешь.

Код

procedure TForm2.SetFilter; Var     SelectString,S,ss:string;     i:integer;     S1,S2,S3,U:string;     r:real; begin     S1:='SELECT имя, Серия, Номер, Группа, Название, ЦенаРоз, ЦенЗак, Остат, НаличВр, Колво, Ключ, Код';     S1:=S1+' FROM каттбл LEFT JOIN заказы ON каттбл.ключ = заказы.код ';     U:='';     S2:=' Order by Группа, Серия, Номер, Название UNION ';      S2:=S2+' SELECT имя, Серия, Номер, Групп as Группа, Назван as Название, ЦенаРоз, ЦенЗак, Остат, НаличВр, Колво, Ключ, Код ';     S2:=S2+' FROM каттбл RIGHT JOIN заказы ON каттбл.ключ = заказы.код ';     S3:=' Order by Группа, Серия, Номер, Название ';     ss:=LabeledEdit1.Text;     //LabeledEdit5.Text:='';     Repeat           i:=pos('"',SelectString);           if i>0 then Delete(SelectString,i,1);     Until i=0;     if ss<>'' then     begin          LabeledEdit5.Text:='';          //if s=SelectString then SelectString:=SelectString+'where ( Название like "*'+StrToRus(ss)+'*" or Название like "*'+StrToEng(ss)+'*" ) '          //else          //U:=' Where ( Название like "*'+StrToRus(ss)+'*" or Название like "*'+StrToEng(ss)+'*" ) ';          U:=' Where ( Название like "*'+ss+'*" or Название like "*'+StrToRus(ss)+'*" or Название like "*'+StrToEng(ss)+'*" or Назван like "*'+ss+'*" or Назван like "*'+StrToRus(ss)+'*" or Назван like "*'+StrToEng(ss)+'*" ) ';     end;     if LabeledEdit2.Text<>'' then     begin          LabeledEdit5.Text:='';          if U='' then U:=' where ( Группа like "*'+LabeledEdit2.Text+'*" or Групп like "*'+LabeledEdit2.Text+'*" )'          else          U:=U+' and ( Группа like "*'+LabeledEdit2.Text+'*" or Групп like "*'+LabeledEdit2.Text+'*" )';     end;     if LabeledEdit3.Text<>'' then     begin          LabeledEdit5.Text:='';          if U='' then U:=' where Прим like "*'+LabeledEdit3.Text+'*" '          else          U:=U+' and Прим like "*'+LabeledEdit3.Text+'*" ';     end;     if LabeledEdit4.Text<>'' then     try          LabeledEdit5.Text:='';          try               r:=StrToFloat(LabeledEdit4.Text);               if r>0 then               begin                    if U='' then U:=' where ценароз = '+LabeledEdit4.Text+' '                    else U:=U+' and ценароз = '+LabeledEdit4.Text+' ';               end;          except          end;     except     end;     if LabeledEdit5.Text<>'' then     try          r:=StrToInt(LabeledEdit5.Text);          U:=' where ключ = '+LabeledEdit5.Text+' ';          {if U='' then U:=' where ключ = '+LabeledEdit4.Text+' '          else          U:=U+' and ценароз = '+LabeledEdit4.Text+' '; }     except     end;     Form1.LogToFile('TForm2.SetFilter',u);     SelectString:=S1+U+S2+U+S3;     Repeat           i:=pos('[',SelectString);           if i>0 then Delete(SelectString,i,1);     Until i=0;     Repeat           i:=pos('{',SelectString);           if i>0 then Delete(SelectString,i,1);     Until i=0;     QueryGrid.Active:=false;     QueryGrid.SQL.Clear;     QueryGrid.SQL.Text:=SelectString;     QueryGrid.Active:=true;     if LabeledEdit5.Text<>'' then Step1TrySale;     {try          if U='' then          if QueryGrid.BookmarkValid(mbm) then          begin               QueryGrid.GotoBookmark(mbm);               QueryGrid.FreeBookmark(mbm)          end;     except     end;       } end;

А есть какой нибудь способ обновить фильтр в Table1.OnFilterRecord
как я понял, что при первом использовании фильтра с помощью Table1, фильтр запоминается и его надо сбросить, то есть удалить из памяти, так. Если есть способ его сбросить то как?

Ну не ушто не кто не знает как обновить фильтр, для повторного его использования!?

ПОМОГИТЕ!!!

Цитата(Sett @ 6.3.2005, 12:11)

А есть какой нибудь способ обновить фильтр в Table1.OnFilterRecord как я понял, что при первом использовании фильтра с помощью Table1, фильтр запоминается и его надо сбросить, то есть удалить из памяти, так. Если есть способ его сбросить то как?

!!?!

Просто странный вопрос. Давай свой исходник - я посмотрю в чем косяк, все равно пока делать нечего. А то я так чувствую мы просто друг друга не понимаем... :-)