看过了上面没有这个介绍 procedure TFrmPrntSet.BitBtnPreviewClick(Sender: TObject); var i: integer; FieldString: string; begin FieldString:=''; for i:=0 to ChkLstSumFlds.Count-1 do begin if ChkLstSumFlds.Checked[i] then FieldString:=FieldString+'[SUM(['+SrcDataSet.Name+'.'''''+ Copy(ChkLstSumFlds.Items[i],(Pos('-',ChkLstSumFlds.Items[i])+3),(length(ChkLstSumFlds.Items[i])-Pos('-',ChkLstSumFlds.Items[i])-3))+'''''])] '; end; delete(FieldString,length(FieldString),1); with frPrntTbl do begin //Summary.Text:=FieldString; 人 Summary.Text:='[sum([cdsview.''''入库金额''''])];//这样不行呀那该怎么解决? 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; end;
procedure TFrmPrntSet.BitBtnPreviewClick(Sender: TObject);
var i: integer;
FieldString: string;
begin
FieldString:='';
for i:=0 to ChkLstSumFlds.Count-1 do
begin
if ChkLstSumFlds.Checked[i] then
FieldString:=FieldString+'[SUM(['+SrcDataSet.Name+'.'''''+ Copy(ChkLstSumFlds.Items[i],(Pos('-',ChkLstSumFlds.Items[i])+3),(length(ChkLstSumFlds.Items[i])-Pos('-',ChkLstSumFlds.Items[i])-3))+'''''])] ';
end;
delete(FieldString,length(FieldString),1); with frPrntTbl do
begin
//Summary.Text:=FieldString;
人 Summary.Text:='[sum([cdsview.''''入库金额''''])];//这样不行呀那该怎么解决?
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;
end;