我想你是要传递统计之后的数据把!
在memo2中写:
ss := '' ;
Memo2.memo.clear ;
ss := aa([SUM([ADOQuery1."fieldname"])],'','') ;
Memo2.memo.add(ss) ;
之后在前台代码中写:
procedure TForm1.frReport1UserFunction(const Name: String;
p1, p2,
p3: Variant;
var Val: Variant);
//p1,p2,p3 :是通过报表程序传递的三个参数
var a :double ;
//val :是调用UserFunction 这个函数的返回值。
begin
a := GETMONY(p1)
val := a ;
end;
给分吧!