[scroyler]

Здравствуйте, подскажите плз. как в dbgrideh (access) сделать фильтрацию (комбобокс) по табличке Категории, например есть таблица из 3 столбцов название,товар,категория.

название товар категория
Сони мобила телефоны
Сони приставка приставки
Сони фотик фотики
самсунг мобила телефоны
сименс мобила телефоны

выбираю в комбобоксе телефоны и отсаются только тел записи у которых категория телефоны

[lmikle]

Смотрим, например, в сторону обработчика OnFilterRecord.

[scroyler]

все сам решил проблему,спасибо

[cookies]

Дабы не плодить топик, напишу свое сюда

Доброго времени суток, делфи кодеры)

есть код

Код:

procedure TForm3.ADOQuery1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
 var FieldVal:string;
begin
FieldVal:=DataSet['Фамилия'];
 Accept:=copy(AnsiUpperCase(FieldVal),1, length(Sedit1.text))= AnsiUpperCase(Sedit1.Text);
end;

ввожу фамилию, все нормально фильтрует и отображает.. как сделать чтоб в едит можно было ввести фамилию и через пробел имя - и в соответствии все фильтровалось и выводилось ?

[lmikle]

Pos, Copy и немного мозга.
Просто строку для поиска надо разделить на 2. Разделитель у тебя пробел. Далее включаем мозг и пишем простой код.

[gabiboi]

Сообщение от scroyler

все сам решил проблему,спасибо

Как решил код скажи мне очень нужен

[Страдалецъ]

На мой взгляд чем возится с PosEx,Copy проще воспользоваться сразу классовыми методами:

Код:

Var
  SL: TStringList;
begin
 SL := TStringList.Create;
 SL.Delimiter := #32;
 SL.DelimitedText := Edit1.Text;
...

[DOR]

На форумах нашел вот такой код

Код:

procedure Tf_Main.Grid_MainApplyFilter(Sender: TObject);
var
s: string;
cond: variant;
i: integer;
begin
cond := '';
s := '';
Datamodule1.T_Dogovor_View.filtered:=false;
 with TDBGridEh(Sender) do begin
    if (not DataSource.DataSet.Active) or (DataSource.DataSet.RecordCount = 0) then exit;
     for i := 0 to TDBGridEh(Sender).Columns.Count - 1 do
    begin
      cond := TDBGridEh(Sender).Columns[i].STFilter.ExpressionStr;
      if cond <> '' then begin
           s := s + '['+TDBGridEh(Sender).Columns[i].FieldName + '] LIKE ''%'+ cond + '%'' AND ';
      end;
    end; Delete(s, Length(s) - 3, 4);
       Datamodule1.T_Dogovor_View.Filter := s;
   end;
Datamodule1.T_Dogovor_View.filtered:=true;
end;

Когда фильтрация происходит по полю (формат стринг) все хорошо, но если поле Дата или Логическое, соответственно не работает, кто нибудь сможет поправить код, что не зависеть от от формата поля.

[poli-smen]

Сообщение от DOR

На форумах нашел вот такой код

Код:

procedure Tf_Main.Grid_MainApplyFilter(Sender: TObject);
var
s: string;
cond: variant;
i: integer;
begin
cond := '';
s := '';
Datamodule1.T_Dogovor_View.filtered:=false;
 with TDBGridEh(Sender) do begin
    if (not DataSource.DataSet.Active) or (DataSource.DataSet.RecordCount = 0) then exit;
     for i := 0 to TDBGridEh(Sender).Columns.Count - 1 do
    begin
      cond := TDBGridEh(Sender).Columns[i].STFilter.ExpressionStr;
      if cond <> '' then begin
           s := s + '['+TDBGridEh(Sender).Columns[i].FieldName + '] LIKE ''%'+ cond + '%'' AND ';
      end;
    end; Delete(s, Length(s) - 3, 4);
       Datamodule1.T_Dogovor_View.Filter := s;
   end;
Datamodule1.T_Dogovor_View.filtered:=true;
end;

Когда фильтрация происходит по полю (формат стринг) все хорошо, но если поле Дата или Логическое, соответственно не работает, кто нибудь сможет поправить код, что не зависеть от от формата поля.

В фильтре можно использовать частичное совпадение только для строковых типов. Т.е. если убрать в этом коде значок процента, то должно работать для любых типов, но с полным совпадением, а не частичным.

[DOR]

Проценты убрал, помогло, но логическое поле не работает. Пишу в фильтре "да" или "нет", может быть нужно как то по другому? (true / false работает).

[DOR]

Так же не работает, если тип поля денежный.

[Lost_Fish]

может тебе вот это поможет? http://devel.comeze.com/index.php?action=filter