//报表的summaryband(打印工资条则不进行汇总)
case cbx_type.ItemIndex of
//0: //工资条不进行汇总
// alabel.parent:=detailband1;
1,2,3:
// alabel.parent:=columnheaderband1;
begin
aexpr:=tqrexpr.create(bbdy);
aexpr.parent:=qrband1;
with aexprdo
begin
autosize:=false;
autostretch:=true;
left:=leftvalue;
top:=1;
//汇总字段的宽度要比非汇总字段宽度大一些
width:=fieldbyname('F_width').asinteger+strtoint(edt_addsumwidth.text);//80;
height:=strtoint(edt_summary.text);//detailband2.height;
//25
//dataset:=dm1.qry_bbdy;
//datafield:=fieldbyname('F_code').asstring;
//汇总字段(summaryband)内容
case cbx_type.itemindex of
0,1: // eg. sum(F000)
expression:='sum('+fieldbyname('F_code').asstring+')';
{ 2,3: // eg. sum(S_F000)
expression:='sum('+'s_'+fieldbyname('F_code').asstring+')';}
end;
//case of
alignment:=taLeftJustify;
ResetAfterPrint:=true;
end;
//aexpr
end;
//1,2 ,3
end;
//case of
我将这段代码贴出来的目的是想问:如何对aexpr的输出进行格式化(如取两位
小数?如果需要,我可以将全合部代码贴出,不过太长了。这是一个工资管理
程序,欢迎下载:http://vip.6to23.com/delphibase