• Registered: 2014-10-21
  • Posts: 2

Topic: SUM from sum TABLE results

Please i want to find the way to SUM the SUM table results

Post's attachments

Attachment icon Untitled-2.jpg 54.7 kb, 439 downloads since 2014-10-26 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: SUM from sum TABLE results

varipatisem
You can do it using script.


Please, send me your project to support@drive-software.com
I'll try to help you.

Dmitry.

3 Reply by varipatisem (edited by varipatisem 2014-10-29 15:11:33)

  • Registered: 2014-10-21
  • Posts: 2

Re: SUM from sum TABLE results

Thank very much for the fast response.
The code works perfect.
Thanks again.
///
procedure Fapousiologiolist_TBG1_OnChange (Sender: string);
var
   c3, c4, c5: string;
   d: double;
begin

     c3 := Fapousiologiolist.TBG1.Columns[3].Footer.Caption;
     c4 := Fapousiologiolist.TBG1.Columns[4].Footer.Caption;
     c5 := Fapousiologiolist.TBG1.Columns[5].Footer.Caption;

     c3 := ReplaceStr(c3, '?=', '');
     c4 := ReplaceStr(c4, '?=', '');
     c5 := ReplaceStr(c5, '?=', '');

     if ValidInt(c3) and ValidInt(c4) and ValidInt(c5) then
        Fapousiologiolist.TBG1.Columns[0].Footer.Caption := 'Total: ' + IntToStr( StrToInt(c3) + StrToInt(c4) +StrToInt(c5) )
        else Fapousiologiolist.TBG1.Columns[0].Footer.Caption := 'Total: ';
end;

begin

end.
///