Сквозная нумерация строк в пределах группы

Комментарии

• malor

  July 2009 отредактировано 18:13

  В отчете стоит Memo-поле в котором записано [Line], что дает автономную нумерацию в пределах группы. Но я хочу, скажем, в некоторых случаях делать сквозную. Как это организовать в скрипте?
• Fokewolf Киев

  July 2009 отредактировано 18:13

  malor написал: »

  В отчете стоит Memo-поле в котором записано [Line], что дает автономную нумерацию в пределах группы. Но я хочу, скажем, в некоторых случаях делать сквозную. Как это организовать в скрипте?

  
  На BeforePrint бэнда пихаете:
  Inc(pCount), где pCount - переменная типа Integer. И в мемку, где у вас будет номер - вставляете [pCount].
• beginman

  May 2010 отредактировано 18:13

  Fokewolf написал: »

  На BeforePrint бэнда пихаете:
  Inc(pCount), где pCount - переменная типа Integer. И в мемку, где у вас будет номер - вставляете [pCount].

  
  Если тема не закрыта, но "устаревшая" для кого то. Не задавая вопрос повторно можно как то поподробнее рассказать для новичка
  
• gpi

  May 2010 отредактировано 18:13

  Вариант 1: использовать [Line#]
  Вариант 2:

  var pCount: integer;
    
  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
      inc(pCount);            
  end;
  
  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
       pCount := 0;                          
  end;
  
  begin
  
  end.
  
• beginman

  May 2010 отредактировано May 2010

  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
  inc(pCount);
  end;
  
  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
  pCount := 0;
  end;
  
  begin
  
  
  что то ничего не происходит
• gpi

  May 2010 отредактировано 18:13

  В отчёте у Вас:

  var MyCount: integer;
  
  procedure Memo11OnBeforePrint(Sender: TfrxComponent);
  begin
    MyCount := 0;
    MyCount := MyCount + 1;
  end;
  

  Переделайте по примеру. В мемо нужно писать [MyCount], a не MyCount
• beginman

  May 2010 отредактировано 18:13

  gpi написал: »

  В отчёте у Вас:

  var MyCount: integer;
  
  procedure Memo11OnBeforePrint(Sender: TfrxComponent);
  begin
    MyCount := 0;
    MyCount := MyCount + 1;
  end;
  

  Переделайте по примеру. В мемо нужно писать [MyCount], a не MyCount

  Пробовал так не работает.
• gpi

  May 2010 отредактировано 18:13

  Выложите изменённый отчёт
• beginman

  June 2010 отредактировано 18:13

  gpi написал: »

  Выложите изменённый отчёт

  
  Выкладываю.
• gpi

  June 2010 отредактировано 18:13

  Вы так ничего и не исправляли