相关代码:
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,
怎么做呀,急急急急,高手多多指教。
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,
怎么做呀,急急急急,高手多多指教。
合计很方便.
begin
QRExpress.Express:='SUM('+TableName+'.'+FieldName;
end;
OnBeferPreview(.....
begin
SetSumField(.....
end;