澄清:如果TQUICKREP的DATASET是TQUERY(not TTABlE),如何用TQRExpr算出某一页某一列数的合计数,关键在于TQuery与TQUICKREP不在同一个Form 你可以指定你的QUICKREP的DATASET属性为类似FORM1.QEURY1的形式,然后再使用SUM函数对某一列(某一个字段)求和。(sum(FORM1.QEURY1.字段名)) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在TQuickrep所在的单元中Use含TQuery的单元。这样Quickrep的DataSet属性中Query控件就可见。 你可以在程序的实现部分加上uses FormX;FormX为TQuery所在的窗体。然后将TQuickRep的DateSet属性设为FormX.Query1.最后用TQRExpr进行计算。 自己手算啊,然后在一个TQRLabel中显示出来 如果我是一个临时的dataset呢?该如何处理? 动态设置报表控件的属性:..执行查询:str_sql:='select 姓名,年龄,性别,班 from table ';Query.Open;//我要简单写啦!在另一单元如:DMC------------------------------------------------在打印按钮事件里写:with Qrp dobegin dateset:=DMC.Query; QRDBText1.dateset:=DMC.Query; QRDBText1.datefield:='姓名' QRDBText2.dateset:=DMC.Query; QRDBText2.datefield:='年龄' QRDBText3.dateset:=DMC.Query; QRDBText3.datefield:='性别' QRDBText4.dateset:=DMC.Query; QRDBText4.datefield:='班' preview;//or print;end;你也可以设置其他报表控件的属性:QRLabel.Caption:='';QRExpr.expression:='sum([要合计的字段])'; 某一页某一列数的合计数的实现: 在PageFooter带中放一个QRExp控件,指定要合计的字段,记住:一定要把它的resetafterprint属性值设为true; 贴子该了结了吧? VBS转Delphi drawgrid 绘图后如何让绘的图消失? 一个鼠标hook的问题 如何设置combobox的高度,答对就给分 知道QQ秀上的更改形象原理是什么吗? 关于dbExpress的使用问题? 急,100分赠送,在线等待,解决立即给分 请问有谁做过李维<<电子商务篇>>的例子? Delphi6又多了那么多的控件。每个都要去研究么??? 如果我想一下子送出1000分,怎么办? 新手求教!求教学习用书!! 扫描的问题?
..执行查询:
str_sql:='select 姓名,年龄,性别,班 from table ';
Query.Open;//我要简单写啦!在另一单元如:DMC
------------------------------------------------
在打印按钮事件里写:
with Qrp do
begin
dateset:=DMC.Query;
QRDBText1.dateset:=DMC.Query;
QRDBText1.datefield:='姓名'
QRDBText2.dateset:=DMC.Query;
QRDBText2.datefield:='年龄'
QRDBText3.dateset:=DMC.Query;
QRDBText3.datefield:='性别'
QRDBText4.dateset:=DMC.Query;
QRDBText4.datefield:='班'
preview;//or print;
end;
你也可以设置其他报表控件的属性:
QRLabel.Caption:='';
QRExpr.expression:='sum([要合计的字段])'; 某一页某一列数的合计数的实现:
在PageFooter带中放一个QRExp控件,指定要合计的字段,
记住:一定要把它的resetafterprint属性值设为true; 贴子该了结了吧?