相关代码:
  with frPrntTbl do
  begin
    //frPrntTbl.Summary.Text:=FieldString;
    PageMargins.Left:=15;
    PageMargins.Right:=10;
    Title.Text:=EdtZbt.Text+#13#10#13#10;
    PageHeader.Text:='日期:[date]    '+EdtFbt.Text;
    
    PageFooter.Text:=' 第[page#]页(共[totalpages + 1]页)';
    BuildReport;
    ShowReport;
  end;
没有用报表设计器,在最后一行加一合计字段。要合计的列由用户指定,用的是TfrPrintTable 和 ClientDataSet,
怎么做呀,急急急急,高手多多指教。

解决方案 »

  1.   

    推荐用ExpressPrinting System结合ExpressQuantumGrid控件,
    合计很方便.
      

  2.   

    http://www.sailprint.com  SailPrint打印组件是一套VCL打印控件。目前最新版本是3.0,可以打印DBGrid,StringGrid,ListView以及直接打印数据源。SailPrint有以下几大特点:    一、SailPrint的特点是快速生成报表,灵活易用,只需几分钟即可完成漂亮的报表。    二、最终用户可以修改报表,开发人员只需调用setoption 这个过程即可让最终用户设置报表。   SailPrint并且保留了设置窗口的源代码,开发人员也可以自己订制设置窗口,这样可以可以跟系统   风格更为一致。包括打印预览窗口也保留了源代码,窗口样式可以随意修改。    三、自动折行功能,估计大家都理解不用多说了,好不好用一试便知。    四、主细表功能,这是新加入的功能,并且支持公式统计。支持的函数有:sum,count,avg以及函数之间   的加减乘除。        例如:sum([字段1])/count([字段2])    五、支持流存储,可以将报表的设置或者将整个报表保存为流,这样可以简单的将报表设置保存到数据   库中,当然也可以保存成文件。这样最终用户修改了报表设置可以方便的保存。    六、多表头功能,设置方法可能与其他控件不一样。大家可以下载试一下。    以上是一些主要特点,还有一些细小功能就不一一列举了,大家下载体验一下吧。
      

  3.   

    上面的sailprint打印组件满足你的要求!
      

  4.   

    procedure SetSumField(TableName,FieldName:String);
    begin
    QRExpress.Express:='SUM('+TableName+'.'+FieldName;
    end;
    OnBeferPreview(.....
    begin
         SetSumField(.....
    end;