Видимость вертикальных бэндов

exteris · September 2007

Приветствую,
Имею на листе два бэнда - горизонтальный и вертикальный. Каждый привязан к своему датасету, данные пихаю через onGetValue.
Для того чтобы спрятать некоторые ненужные строки и столбцы написал такой код:

procedure Memo16OnBeforePrint(Sender: TfrxComponent);
begin
  If (<HideEmpty>=True) and (<SumKol>=0) Then MasterData1.Visible:=False
   Else MasterData1.Visible:=True;                                     
end;

procedure Memo5OnBeforePrint(Sender: TfrxComponent);
begin
   If (<AgentActual>=True) Then MasterData2.Visible:=True                
    Else MasterData2.Visible:=False;                               
end;

Проблема в том, что строки прячуться нормально, а вот столбцы вообще не показываются(и нужные и ненужные).
Вот.

gpi · September 2007

Перенесите код в обработчики бендов
Если добавить такой код в обработчик вертикального бенда в примере Old-style cross-tab

procedure MasterData2OnBeforePrint(Sender: TfrxComponent);
begin
      if (cell>8) and ((cell mod 9) =0) then 
     begin
       Memo1.Visible:=False;
       Memo3.Visible:=False;           
       MasterData2.Width:=0;
     end
     else
     begin
       Memo1.Visible:=True;
       Memo3.Visible:=True;         
       MasterData2.Width:=45.35;
     end;  
end;

то десятый столбец не будет выводиться

exteris · September 2007

Спасибо, заработало.

Видимость вертикальных бэндов

Комментарии

Оставить комментарий