How to manually sum values in DBCrossTab?

Comments

• Juhas

  March 2009 edited 5:16AM

  OK, I think I managed to do this, but maybe there is a simpler, better way. I did it like that(in FR Script):
  
  

  
  var
    rowSecs: integer; //seconds for a row
  
  procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
  var
    h, m, s, ms: word;
    hStr, mStr: string;                                            
  begin
    if ColumnIndex = DBCross1.ColCount - 1 then //column is total                 
    begin
      h:=rowSecs div 3600; //count hours
      rowSecs:=rowSecs - (3600*h); 
      m:=rowSecs div 60; //count minutes
      s:=rowSecs - (60*m); //and seconds. I don't really need them for now
  
      if h>9 then hStr:=intToStr(h) else hStr:='0'+intToStr(h); //always show (h)hh:mm
      if m>9 then mStr:=intToStr(m) else mStr:='0'+intToStr(m);
      
      Memo.Text:=hStr+':'+mStr;
      rowSecs:=0;
    end else                                                               
    begin              
      if Value<>null then
      begin              
        DecodeTime(Value, h, m, s, ms);
        s:=s+(m*60)+(h*3600);                                            
        rowSecs:=rowSecs + s;
      end;
    end;              
  end;
  
  begin
    rowSecs:=0;                            
  end.
  
  
• pele

  January 2010 edited January 2010

  I have little another problem
  
  How to sum values but not all the columns, for example, only 2 and 3 columns.
  Or sum all columns, and then subtract value from 1 column.
  
  Unfortunately, I do not know where is the column, which I do not want to count. I have to check her name.