Вывод выделенных записей

Linco

Есть отчет. Данные берутся из датасета. Есть ли возможность вывода части записей (например выделенных записей). Т.е. контроль попадания записи в отчет. Или только через userdataset с организацией навигации ongetvalue и т.п.

-=Serg=-

Понятие "выделенные записи" существует для таблицы (DBGrid). FR работает с датасетами.

Linco

Я понимаю, потому и пишу контроль попадания записи в отчет, или формирование отчета "вручную". Т.е. пробег по нужным записям например.
Если такого способа нет ИМХО необходимо его добавить что-то типа свойства OnReportRecordAdd.
А то приходится сначала пробегать по выделенным записям, формировать новый запрос с in (PK) переоткрывать датасет с данным условием, формировать отчет по всем записям, возвращать датасет в исходное состояние.

-=Serg=-

Событие OnBeforePrint не устраивает?

Linco

Onbeforeprint возникает при перед формированием каждой записи? тогда устраивает. Я думал перед формированием отчета.

-=Serg=-

Перед формирование каждого компонента отчета.
Вам, например, нужно перехватывать только определенный бенд и по условию делать его видимым или невидимым.

Linco

Т.е. тогда получается что для моего датабэнда событие вызовется N раз по числу записей?
Да нет вроде при работе с бэндом (visible true/false)
записи вообще не выводятся.

Linco

Значит пишем в beforePrint отчета:

 function findbookmark(BM:string):boolean;
   var i:integer;
  begin
    result:=Fbookmarklist.IndexOf(BM)<>-1;
  end;
begin
 if Fbookmarklist.count>0 then
  if (sender is Tfrxdataband) then
   Tfrxdataband(sender).Visible:=
   findbookmark(TfrxDBdataset(Tfrxdataband(sender).dataset).DataSource. DataSet.Bookmark);
end;

Если выделена первая запись и любое количество последующих в любом порядке - все ок.
Если первая не выделена - не выводится ни одного датабэнда
такое впечатление, что FR если первый датабэнд с первой строкой данных не виден остальные тоже не показывает.
ЗЫ отчет стандартный простой - один датабэнд и несколько header/footer