GropHeader

Комментарии

• gpi

  January 2007 отредактировано January 2007

  GroupHeader1 сделайте видимым с высотой=0, в мемо на ColumnHeader выводите значение переменной a
  В скрипте отчёта

  var a : string;
  procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
  begin
       a:=<DataSet."Field">;
  end;
  
  begin
       a:='';
  end.
  
• Troff г. Воронеж

  January 2007 отредактировано 07:22

  Спасибо, за участие, но у меня проблема состоит в том,
  что при GroupFooter.OnAfterPrint -> Engine.NewColumn
  получается во 2-ой колонке в ColumnHeader повторение значения
  первого поля(как в первой колонке), а данные по значению
  второго поля группировки и дальше такая сдвижка по всем
  колонкам/страницам, т.е. адекватна только первая колонка
  первой страницы!!!
  Кстати, если сделать GroupHeader.OnBeforePrint -> Engine.NewColumn
  все нормально начиная со второй колонки первой страницы!
  Но первая колонка первой страницы содержит только шапку со первым
  значением группировки без MasterDatа. Помогите разобраться.
  Нелогичные непонятки какие-то просто ((
• gpi

  January 2007 отредактировано 07:22

  Тогда попробуйте так:

  procedure GroupFooter1OnAfterPrint(Sender: TfrxComponent);
  begin
       MasterData1.DataSet.Next;
       Engine.NewColumn;
       MasterData1.DataSet.Prior;
  end;
  
  procedure ReportTitle1OnBeforePrint(Sender: TfrxComponent);
  begin
       MasterData1.DataSet.First;
  end;
  

  или так:

  var StartNewColumn :boolean;
  procedure ReportTitle1OnBeforePrint(Sender: TfrxComponent);
  begin
       StartNewColumn:=False;
       MasterData1.DataSet.First;
  end;
  
  procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
  begin
      if StartNewColumn then Engine.NewColumn;
      StartNewColumn:=true;
  end;
  
• Troff г. Воронеж

  January 2007 отредактировано 07:22

  Ура, заработало!
  ОГРОМНОЕ тебе спасибо GPI!!! И мой тебе респект!
  
  P.S Второй способ поэлегантнее будет и время поменьше ...