FastReport

[MasterofCDM]

Господа - спецы, подскажите как добраться до свойств бэнда MasterData

var
  MasterData: TfrxMasterData;
begin
    MasterData := frxReport1.FindObject('MasterData1') as TfrxMasterData;
    MasterData.RowCount := 3;
end;

procedure TForm4.frxReportUcLstGetValue(const VarName: string;
  var Value: Variant);
begin
    if CompareText(VarName, 'Predmet') = 0 then
        Value := ListView1.Items[ind1].SubItems[0];
    if CompareText(VarName, 'Ocenka') = 0 then
         Value := ListView1.Items[ind1].SubItems[0];
end;

так не получается, при "MasterData.RowCount := 3" всеравно печатает столько раз сколько указано вручную в конструкторе((( Где я накосячил или есть у кого простой пример использования печати с использованием бэнда (примеры в FastReport - для меня загадка, запускаешь - все работает, делаешь аналогичный проект - не работает)

[_Engine_]

Можно работать примерно так:

procedure TForm1.frReport1ManualBuild(Page: TfrPage);
var i : Integer;
begin
  for i:= 1 to 3 do
    Page.ShowBandByName('MasterData1');
end;

procedure TForm1.frReport1GetValue(const ParName: String;
  var ParValue: Variant);
begin
  if CompareText('Param1', ParName) = 0
   then ParValue := 'blobluble'   else
  if CompareText('Param2', ParName) = 0
   then ParValue := 'blablabla';
end;

[MasterofCDM]

Чего-то не получается, ругается:

[DCC Error] newab.pas(351): E2003 Undeclared identifier: 'ShowBandByName'

[_Engine_]

У тебя какая версия FastReport?

[MasterofCDM]

Delphi 2007 FR 4.7.9

[MasterofCDM]

Попробовал

var
  MasterData: TfrxMasterData;
begin
    MasterData := frxReport1.FindObject('MasterData1') as TfrxMasterData;
    for i:= 1 to 3 do
      frxReportUcLst.Engine.ShowBand(MasterData);
end;

Выдает ошибку Access violation....

[MasterofCDM]

Пож-ста подскажите как в MasterData1 добавить в свойство источник данных - frxUserDataSet1? В Delphi я создал frxReport1, frxUserDataSet1 и надо теперь, чтобы осуществлялось управление MasterData1 в отчете из под frxUserDataSet1.

[MasterofCDM]

Все сам разобрался)))