![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Помогите сделать поиск по фамилии. Столбец присоединен из другой таблицы и выведен в 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, 06.12.2008 в 13:52. |
|
#2
|
|||
|
|||
|
Поиск по фамилее нужно не через ДВ ГРИД а через ADOTable4
|
|
#3
|
|||
|
|||
|
ну если в гриде вот ссилка
http://www.delphikingdom.com/asp/vie...talogid=907#01 |