FIX: GroupHeader после MasterHeader
Samuray
Administrator
Исправьте fr_class.pas.
procedure TfrPage.FormPage;
procedure DoLoop(Level: Integer);
замените код:
if not b.DataSet.Eof then
begin
InitGroups(b.FirstGroup);
if b.HeaderBand <> nil then
AddToStack(b.HeaderBand);
на следующий:
if not b.DataSet.Eof then
begin
if b.HeaderBand <> nil then
AddToStack(b.HeaderBand);
InitGroups(b.FirstGroup);
procedure TfrPage.FormPage;
procedure DoLoop(Level: Integer);
замените код:
if not b.DataSet.Eof then
begin
InitGroups(b.FirstGroup);
if b.HeaderBand <> nil then
AddToStack(b.HeaderBand);
на следующий:
if not b.DataSet.Eof then
begin
if b.HeaderBand <> nil then
AddToStack(b.HeaderBand);
InitGroups(b.FirstGroup);
Комментарии
Опишите пожалуйста подробнее ошибку (ситуацию) ,
которую исправляет данный Fix.