Форум: "Базы";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
ВнизФильтрация в Delphi Найти похожие ветки
← →
mrl (2002-03-30 14:48) [0]Необходимо отфильтровать в таблице tMegazin те записи у которых есть записи в подчиненой таблице tPublik
procedure TDataModule1.tMegazinFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=not(tPublik.IsEmpty);
end;
НЕ РАБОТАЕТ?! Подскажите в чем дело? Хочу обойтись без TQuery.
С уважением Валентин
← →
VAleksey (2002-03-30 16:54) [1]Ну во первых (если я правильно понял из книги) если в tPablik есть записи то ее св-во isEmpty будет равно false.
Была у меня такая задача -) держи код для твоего случаю (будет тормозить немного -)), но у меня прошло была база примерно на 3000 записей )
procedure TDataModule1.tMegazinFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=tPublik.Locate("Поле по которому связаны таблицы",tMegazin.FieldByName("Поле по которому связаны таблицы").Value,[]);
end;
← →
VAleksey (2002-03-30 16:55) [2]Можно использовать FindKey если по полю есть индекс.
Может будет побыстрее
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c