Среднее без нулей в Cross-table

Комментарии

• Konst

  December 2010 отредактировано 10:32

  Я давно прошу добавить: скрыть колонку где все нули....
  мб в 5 версии появится.
  Так и у вас подсчет среднего по условию.
  т.е в скрипте пишем условие по какому считать и ссылку на эту проверку.
  
• Liubou

  December 2010 отредактировано 10:32

  Konst написал: »

  т.е в скрипте пишем условие по какому считать и ссылку на эту проверку.

  А вы можете пояснить, как условие написать в скрипте? Я просто не очень давно работаю с FastReport и пока не очень хорошо знаю его возможности.
• Liubou

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

  Есть один вариант решения, который мне подсказали. Если у кого-то есть более простой вариант, то отзовитесь, пожалуйста!
  Было предложено так:
  

  var
    ColSums   : array of Variant;
    ColCounts : array of Variant;
  
    RowSums   : array of Variant;
    RowCounts : array of Variant;
  
  
  
  procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant); begin
      if Length(RowSums) < (RowIndex + 1) then
      begin
        SetLength(RowSums, (RowIndex + 1));
        SetLength(RowCounts, (RowIndex + 1));
      end;
  
      if Length(ColSums) < (ColumnIndex + 1) then
      begin
        SetLength(ColSums, (ColumnIndex + 1));
        SetLength(ColCounts, (ColumnIndex + 1));
      end;
  
  
    if DBCross1.IsTotalColumn(ColumnIndex) then
    begin
      if RowCounts[RowIndex] > 0.0000001 then
         Memo.Text := Format('%2.2n', [RowSums[RowIndex] / RowCounts[RowIndex]]);
    end
    else if DBCross1.IsTotalRow(RowIndex) then
    begin
      if ColCounts[ColumnIndex] > 0.0000001 then
        Memo.Text := Format('%2.2n', [ColSums[ColumnIndex] / ColCounts[ColumnIndex]]);
    end
    else
    begin
      if Value > 0.0000001 then
      begin
        RowSums[RowIndex] := RowSums[RowIndex] + Value;
        RowCounts[RowIndex] := RowCounts[RowIndex] + 1;
  
        ColSums[ColumnIndex] := ColSums[ColumnIndex] + Value;
        ColCounts[ColumnIndex] := ColCounts[ColumnIndex] + 1;
      end;
    end;
  end;
  
  procedure Page1OnBeforePrint(Sender: TfrxComponent); begin
    SetLength(ColSums, 0);
    SetLength(ColCounts, 0);
    SetLength(RowSums, 0);
    SetLength(RowCounts, 0);
  end;
  
• gpi

  January 2011 отредактировано 10:32

  Попробуйте использовать выражение для значения ячеек
  <IIF(<Dataset."FieldName"> = 0, null, <Dataset."FieldName">)>