Фильтрация данных
Добрый день!
В таблице Tab1 имеется 10 записей.
Делаю:
frxDBDataset1.DataSet:=Tab1;
Tab1.IndexFieldNames:='Год';
Tab1.SetRangeStart;
Tab1.FieldByName('Год').AsVariant := god;
Tab1.SetRangeEnd;
Tab1.FieldByName('Год').AsVariant := god;
Tab1.ApplyRange;
showmessage(inttostr(Tab1.RecordCount)); <
фильтр работает и показывает, что 4 записи
showmessage(inttostr(frxDBDataset1.RecordCount)); <
фильтр работает и показывает, что 4 записи
DataBand1:=frxReport1.FindObject('MasterData1') as TfrxMasterData;
DataBand1.DataSet:=frxDBDataset1;
frxDBDataset1.Open;
В итоге в отчет в MasterData1 выводятся все записи таблицы Tab1. Т.е. не срабатывает фильтр или в чем ошибка?
В таблице Tab1 имеется 10 записей.
Делаю:
frxDBDataset1.DataSet:=Tab1;
Tab1.IndexFieldNames:='Год';
Tab1.SetRangeStart;
Tab1.FieldByName('Год').AsVariant := god;
Tab1.SetRangeEnd;
Tab1.FieldByName('Год').AsVariant := god;
Tab1.ApplyRange;
showmessage(inttostr(Tab1.RecordCount)); <
фильтр работает и показывает, что 4 записи
showmessage(inttostr(frxDBDataset1.RecordCount)); <
фильтр работает и показывает, что 4 записи
DataBand1:=frxReport1.FindObject('MasterData1') as TfrxMasterData;
DataBand1.DataSet:=frxDBDataset1;
frxDBDataset1.Open;
В итоге в отчет в MasterData1 выводятся все записи таблицы Tab1. Т.е. не срабатывает фильтр или в чем ошибка?
Комментарии
Все разобрался. Это была лишняя команда:=)