неправильно отображение данных
Добрый день.
есть готовый шаблон A.frf, на нем MasterData и CrossData источники данных у обоих: "нет".
первое что я делаю - загружаю необходимый файл :
Report.LoadFromFile('c:\A.frf');
второе, загружаю в MaterData количестко записей, которые находятся в UserData1: TfrBandView(Report.FindObject('MasterData')).DataSet := IntToStr(UserData1.RangeEndCount);
третье: загружаю в CrossData количестко записей, которые находятся в UserData2: TfrBandView(Report.FindObject('CrossData')).DataSet := IntToStr(UserData2.RangeEndCount);
в Report. OnBeginBand:
if Band.Name = 'MasterData' then
begin
Band.DataSet := UserData1;
end;
if Band.Name = 'CrossData' then
begin
Band.DataSet := UserData2;
end;
проблема состоит в следующем:
MasterData все нормально отображает, все записи со своими значениями, в вот CrossData топчится на месте, печататет первую запист (UserData2.RecNo = 0) и НЕ переходит на следующую (UserData2.RecNo = 1, UserData2.RecNo = 2 ....... ).
Создаю я эти UserData - динамически:
UserData1 := TfrUserDataset.Create(FOwner);
UserData1.Name := 'UserData1';
UserData1.RangeEnd := reCount;
так же и UserData2.
почему CrossData печатает только первую запись UserData2.RangeEndCount раз?
есть готовый шаблон A.frf, на нем MasterData и CrossData источники данных у обоих: "нет".
первое что я делаю - загружаю необходимый файл :
Report.LoadFromFile('c:\A.frf');
второе, загружаю в MaterData количестко записей, которые находятся в UserData1: TfrBandView(Report.FindObject('MasterData')).DataSet := IntToStr(UserData1.RangeEndCount);
третье: загружаю в CrossData количестко записей, которые находятся в UserData2: TfrBandView(Report.FindObject('CrossData')).DataSet := IntToStr(UserData2.RangeEndCount);
в Report. OnBeginBand:
if Band.Name = 'MasterData' then
begin
Band.DataSet := UserData1;
end;
if Band.Name = 'CrossData' then
begin
Band.DataSet := UserData2;
end;
проблема состоит в следующем:
MasterData все нормально отображает, все записи со своими значениями, в вот CrossData топчится на месте, печататет первую запист (UserData2.RecNo = 0) и НЕ переходит на следующую (UserData2.RecNo = 1, UserData2.RecNo = 2 ....... ).
Создаю я эти UserData - динамически:
UserData1 := TfrUserDataset.Create(FOwner);
UserData1.Name := 'UserData1';
UserData1.RangeEnd := reCount;
так же и UserData2.
почему CrossData печатает только первую запись UserData2.RangeEndCount раз?
Комментарии