请问那位能介绍一下quickreport中QRExpr的高级用法(100分)

  • 主题发起人 主题发起人 狼尾草
  • 开始时间 开始时间

狼尾草

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么个高级啊?不就是支持表达式么?
看看帮助吧,讲的很清楚。
 
帮助讲得太简单了,它说让我看用户手册,可是我怎么也找不到,比如我想按照某
一字段分类求SUM,不知道怎么做
 
sum(if(字段值=???,字段值,0))
 
//报表的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
 
接受答案了.
 
后退
顶部