Проблема с Db-cross Tab

Комментарии

• gpi

  October 2010 отредактировано 11:47

  Попробуйте накапливать итоговые значения кроссов в переменных в событиии кросса OnPrintCell

  procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
  begin
      if Cross1.IsGrandTotalRow(RowIndex) then ShowMessage(Value);                                                                             
  end;
  

  а затем выводите суму строк всех кроссов на отдельном бэнде
• Dintra

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

  if Cross1.IsGrandTotalRow(RowIndex) then ShowMessage(Value);
  

  
  Простите, непонятен смысл этой части кода. Смысл с того, что показывает каждое отдельное значение итоговой строки таблицы в новом окне при построении отчета и каждое надо подтвердить нажатием Ентер? Хотя сумму все равно не считает. Возможно я в функции SUM что-то не то прописываю. Какой примерный текст должен быть при подсчете сумм строк всех кроссов (хотя бы одного кросса)?
  
  если можно, то подробнее, пожалуйста, а то я с кодам/программированием дружу только поверхностно.
  
  Заранее спасибо
• gpi

  October 2010 отредактировано 11:47

  Для подсчёта итогов по трём столбцам:

  var Sum0, Sum1, Sum2: extended;                                                                  
  procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
  begin
       if Cross1.IsGrandTotalRow(RowIndex) then
       case ColumnIndex of
        0: Sum0 := Sum0 + Value;
        1: Sum1 := Sum1 + Value;
        2: Sum2 := Sum2 + Value;
       end;                
  
  end;
  
  procedure Cross2OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
  begin
       if Cross2.IsGrandTotalRow(RowIndex) then
       case ColumnIndex of
        0: Sum0 := Sum0 + Value;
        1: Sum1 := Sum1 + Value;
        2: Sum2 := Sum2 + Value;
       end;  
  end;
  
  begin
        Sum0 := 0;
        Sum1 := 0;
        Sum2 := 0;  
  end.
  
• Dintra

  October 2010 отредактировано 11:47

  gpi, огромное спасибо за предоставленный код и ответы, немного изменив его добился требуемого результата. Все работает.
• Dintra

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

  Подскажите еще, пожалуйста:
  1. Возможно ли в кросстабе вставить пустые колонки? Например, у меня кросс рассчитанный на 1 год, столбцы - месяца, строки - сотрудники, выполнявшие определенные объем работ. На пересечении столбец/строка сумма объемов работ за месяц. Так вот, если в одном (или нескольких месяцах), не было выполнено никаких объемов работ, т.е должны быть 0, возможно чтобы этот столбец вставлялся пустым и в итоге внизу был написан этот 0?
  2. Как в коде обратится непосредственно к столбику Grand Total, имеет ли он какое-то фиксированное значение, чтобы данные брались именно оттуда? Т.к я не знаю заранее каким именно он будет по счету (код предоставленный выше не подходит в этом случае), зависит от данных, которые берутся из Query.
• Dintra

  November 2010 отредактировано 11:47

  неужели никто не знает ответов на вопросы?