[Demonuka]

Есть такая схема TClientDataSet --> TDataSource --> TDBGrid. Необходимо сделать фильтрацию по полю DBGrid1.Fields[1]. Фильтрация типа "вводим в Edit1 нечто и получаем отфильтрованные данные". Проблема в том, что я почему то не сделал ни ADOTable ни ADOQuery и использовать SQL запросы не получается. Переделывать не хотелось бы, ибо это единственное, что не работает. Можно ли как то еще отфильтровать?

[NumLock]

Код:

1 2	ClientDataSet1.Filter:='********'; ClientDataSet1.Filtered:=True;

[Demonuka]

Спасибо, ты как всегда выручил...

[Demonuka]

Не...так не работает...Либо я что-то не то в фильтре пишу. Решил сделать через ClientDataSet1.CommandText. Пишу так

Код:

1 2 3 4 5

procedure TForm1.Edit5Change(Sender: TObject); begin ClientDataSet1.CommandText:='SELECT * FROM Данные WHERE ТП = "'+Edit5.Text+'";'; ClientDataSet1.Open; end;

Ииии...Не работает...:-( Ошибок не выдает, но фильтровать не хочет...

[NumLock]

конечно, работает: http://data.cod.ru/139021

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

type   TForm1 = class(TForm)     ClientDataSet1: TClientDataSet;     DataSource1: TDataSource;     DBGrid1: TDBGrid;     Edit1: TEdit;     CheckBox1: TCheckBox;     procedure FormCreate(Sender: TObject);     procedure CheckBox1Click(Sender: TObject);   procedure TForm1.FormCreate(Sender: TObject); var   i: Integer; begin   ClientDataSet1.FieldDefs.Add('id', ftInteger);   ClientDataSet1.FieldDefs.Add('name', ftString, 20);   ClientDataSet1.CreateDataSet;   for i:=0 to 15 do   begin     ClientDataSet1.Append;     ClientDataSet1.FieldByName('id').AsInteger:=i;     ClientDataSet1.FieldByName('name').AsString:=IntToHex(i, 2);     ClientDataSet1.Post;   end; end;   procedure TForm1.CheckBox1Click(Sender: TObject); begin   ClientDataSet1.Filtered:=CheckBox1.Checked;   if ClientDataSet1.Filtered then ClientDataSet1.Filter:=Edit1.Text; end;

[Demonuka]

Спасибо, NumLock! Пойду выпрямлять руки...