FastReport+递加 很急~~在线等!(50分)

  • 主题发起人 主题发起人 shell~
  • 开始时间 开始时间
S

shell~

Unregistered / Unconfirmed
GUEST, unregistred user!
用QuickReport实现很简单,在FastReport竟然一直找不到这种功能,高手来指点一下:
材料编码 数量 累计
001 10 10
002 20 30
003 30 60
004 40 100
请问如何解决?用的是Access数据库,我设了一个累计虚拟字段,数据不正确。还有一点就是Access数据库用Adoquery.recno得到当前记录的总是-1
 
哈哈!开辟一个变量贝!
如:在数据字典,或页头中新增变量:beforeprint: aa:=0
然后在累计的memo中写
begin

aa:=aa+fieldbyname('数量').asinteger;
memo1.memo:=aa;
end;
 
为空,没有数据值,why?? vmao
 
不会吧!我一直这么做的!
在页头的beforeprint中增加变量 aa:=0
在累计memo中双击,下面的代码框内写
begin

aa:=aa+fieldbyname('数量').asinteger;
memo1.memo:=aa;
end;
--更本没有必要用虚拟累计字段!肯定哪写错了!fr中的变量不知道要不要加[],忘了!简单起见你可以在页头上放一个不可见的memo做中间累计变量试试看!
 
在beforeprint中:
begin
sumvalue:=0;
end
在Memo24中定义:
begin
sumvalue:=sumvalue+[SCJDFrm.SCDay."数量"];
memo24.memo.text:=floattostr(sumvalue);
end
就是为空
 
如果用数据字典的话是这样:
begin
[sumvalue]:=[[sumvalue]+[SCJDFrm.SCDay."数量"]];
memo24.memo.text:=floattostr([sumvalue]);
end
提示出错!!!
 
begin
sumvalue:=sumvalue+[SCJDFrm.SCDay."数量"];
memo24.memo.text:=floattostr(sumvalue);---错啦!
memo24.memo:=sumvalue---1.没有.text;2不用类型转换
end
 
[:D]多谢vamo大哥!!!终于搞定了。
 

Similar threads

S
回复
0
查看
858
SUNSTONE的Delphi笔记
S
S
回复
0
查看
784
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
850
DelphiTeacher的专栏
D
后退
顶部