| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Фильтрация в Delphi [D5, Paradox]
mrl © (2002-03-30 14:48:00)Необходимо отфильтровать в таблице tMegazin те записи у которых есть записи в подчиненой таблице tPublik
procedure TDataModule1.tMegazinFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=not(tPublik.IsEmpty);
end;
НЕ РАБОТАЕТ?! Подскажите в чем дело? Хочу обойтись без TQuery.
С уважением Валентин
VAleksey (2002-03-30 16:55:00) [1]Можно использовать FindKey если по полю есть индекс.
Может будет побыстрее
VAleksey (2002-03-30 16:54:00) [2]Ну во первых (если я правильно понял из книги) если в tPablik есть записи то ее св-во isEmpty будет равно false.
Была у меня такая задача -) держи код для твоего случаю (будет тормозить немного -)), но у меня прошло была база примерно на 3000 записей )
procedure TDataModule1.tMegazinFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=tPublik.Locate("Поле по которому связаны таблицы",tMegazin.FieldByName("Поле по которому связаны таблицы").Value,[]);
end;
| |
