[BlacKCheT]

Код:

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]

Код:

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]

Код:

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, где просто прописываешь русское название).