Помогите сделать поиск по фамилии. Столбец присоединен из другой таблицы и выведен в DBGrid.
Вообще у меня код работает, но для присоединённого столбца нет. Присоединенный столбец из
Использую ADOConnection1, DataSource4, ADOTable4.
Код:
procedure TForm1.Action16Execute(Sender: TObject);
begin
if form1.PageControl1.ActivePage=tabsheet4 then
begin
if Action16.Caption ='Посмотреть историю болезни' then
begin
if Form9.ShowModal=mrOK then
begin
datamodule2.ADOTable4.Filter:='(Фамилия='+''''+Form9.Edit1.Text+''''+')';
datamodule2.ADOTable4.Filtered:=true;
Action16.Caption:= 'Отмена';
end
else
begin
datamodule2.ADOTable4.Filtered:=false;
Action16.Caption:= 'Посмотреть историю болезни';
end;
end
else
begin
datamodule2.ADOTable4.Filtered:=false;
Action16.Caption:= 'Посмотреть историю болезни';
end;
end;
Admin: Пользуемся тегами!