[BlacKCheT]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TForm6.Button2Click(Sender: TObject); begin   if Length(Edit2.Text) > 0 then    begin    DataModule2.adotable3.Filtered:=false;    DataModule2.adotable3.Filter:='Фамилия LIKE '+ #39 + Edit2.Text + '%' + #39;    DataModule2.adotable3.Filtered:=true;    end   else DataModule2.ADOTable3.Filtered:=false;  end;     procedure TForm6.Edit3Change(Sender: TObject); begin if Length(Edit3.Text) > 0 then begin DataModule2.ADOTable3.Filtered:=false; DataModule2.ADOTable3.Filter:='Îò÷åñòâî LIKE ' + #39 + Edit3.Text + '%' + #39; DataModule2.ADOTable3.Filtered:=true; end else DataModule2.ADOTable3.Filtered:=false; end;

[BlacKCheT]

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Edit1Change(Sender: TObject); begin if Length(Edit1.Text) > 0 then begin ADOTable1.Filtered:=false; ADOTable1.Filter:=Combobox1.Text + ' LIKE ' + #39 + Edit1.Text + '%' + #39; ADOTable1.Filtered:=true; end else ADOTable1.Filtered:=false; end;

------------------------------------------------
выбор столбца через комбобокс не работает

[BlacKCheT]

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm6.Edit3Change(Sender: TObject); begin if Length(Edit3.Text) > 0 then begin DataModule2.ADOTable3.Filtered:=false; DataModule2.ADOTable3.Filter:='['+Combobox1.Text+']' + ' LIKE '+ #39 + '%' + Edit3.Text + '%' + #39; DataModule2.ADOTable3.Filtered:=true; end else DataModule2.ADOTable3.Filtered:=false; end;

[lmikle]

Ну да, ну да.
А нефиг столбцы в БД по русски называть.

Вот не понимаю, что за любовь у людей стрелять себе в ногу и танцевать на граблях. Ну делай все названия латиницей, меньше проблем будет. А в интерфейсе все заголовки переименуешь (у поля есть такое свойство как DisplayName, где просто прописываешь русское название).