Подмена DataSet в runtime?

martiny

Народ, я возможно торможу, но даже не представляю как это сделать. Хотя, может это и по-другому делается? Надо вывести запрос с группировкой, даже если в нем нет строк. Придумал, что в случае, если запрос возвращает 0 строк, подменять датасет у мастер бэнда. Не представляю, как ему скормить новый датасет, который "single rows". Подскажите!!! :-)

-=Serg=-

Посмотри http://www.fast-report.com/en/forum/?p=/discussion/3672
правда там речь о 3-ке.... но принцип может подойти

martiny

http://www.fast-report.com/en/forum/?p=/discussion/3672 написал:

http://www.fast-report.com/en/forum/?p=/discussion/3672 [/url]
правда там речь о 3-ке.... но принцип может подойти

Болты. Тем более, и ветка там не закончена...
А мысль была значительно проще. Реализация идеи заключается в том, чтобы получить объект датасета в рантайме и присвоить ему другой объект, который "single rows". Просто я не очень понимаю, как эти объекты хранятся в ФР и как к ним можно осуществить программный доступ средствами дельфей, а не встроенного языка.

gpi

Посмотрите здесь
http://www.fast-report.com/en/forum/?p=/discussion/3162
и здесь
http://www.fast-report.com/en/forum/?p=/discussion/3249

martiny

Пишу:

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
if TfrxBandView(frReport1.FindObject('Band3')).DataSet = '0' then
TfrxBandView(frReport1.FindObject('Band3')).DataSet := '10';
end;


Ошибка: undeclared identifier TfrxBandView.

Что не так?

-=Den=-

Не пойму какой версией пользуитесь 2.x или 3.x?

-=Serg=-

martiny написал:

Ошибка: undeclared identifier TfrxBandView.

Если 2 - то TfrBandView

gpi

А если 3, то

TfrxMasterData(frxReport1.FindObject('MasterData1')).DataSet:=nil;
TfrxMasterData(frxReport1.FindObject('MasterData1')).RowCount:=5;

martiny

Сорри, сразу не сказал. Юзаю FR 3 + дельфи 6.
Спасибо, буду пробовать! :-)

И опять не то. Отчет выводится, но шапки в нем нет. Есть только подвал. А мне надо присвоить не количество строк, а другой датасет. Пусть даже и фиктивный, собраный специально для подмены тут же на коленке, потому что отчет - с группировкой! Насколько я понимаю, там же должна быть хотя бы одна строка... :-(

gpi

написал:

А мне надо присвоить не количество строк, а другой датасет

TfrxMasterData(frxReport1.FindObject('MasterData1')).DataSet:=frxDBDataset1;

написал:

потому что отчет - с группировкой!

Условие группировки тоже нужно будет поменять