fastreport合计显示问题?

CB1013 2008-01-02 02:13:31
其他都正常,为什么合计数出不来?
procedure Page1OnBeforePrint(Sender: TfrxComponent);
var
...
begin
......

i:=20;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select name,fields from items where tables=''pay'' and total=1');
ADOQuery2.Open;
while not ADOQuery2.Eof do
begin
Memo:= TfrxMemoView.Create(ColumnFooter1);
//Memo.CreateUniqueName;
//Memo.DataSet :=ADOQuery1;
Memo.Text :='[SUM(<ADOQuery1."'+Trim(ADOQuery2.FieldByName('fields').AsString)+'">,MasterData1)]';
//ShowMessage(Memo.Text); //显示正常
Memo.Height :=20;
Memo.SetBounds(i,0,100,20);
ADOQuery2.Next;
i:=i+80;
end;
end;
...全文
307 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
king_xing 2008-01-04
  • 打赏
  • 举报
回复
楼主太有才!
llh6795 2008-01-04
  • 打赏
  • 举报
回复
复杂的问题能用简单的方法解决最好:)))
Ascn 2008-01-03
  • 打赏
  • 举报
回复
SUM函数在FR报表脚本中可以使用的,格式:SUM(表达式,所属段,标志)。可以在报表设计器中加入一个Memo并使用合计公式试试看

为什么要 Memo1.Memo.Text := ??? 我一直使用:
TfrxMemoView(fr.FindObject('MemoDx' + IntToStr(n))).Text := c;
这种方式都没问题呀。
wangxuelid 2008-01-02
  • 打赏
  • 举报
回复
1: 那要怎么样用?
--
sum? 我不知道你那个是否可不可以用,
2:
Memo1//是fastreport里面的,显示你的数据之和的,,
CB1013 2008-01-02
  • 打赏
  • 举报
回复
TO: cncharles
那要怎么样用?

TO: WANGXUELLD
x:=frxReport1.FindObject('Memo1') as TfrxMemoView;//都是动态创建的,Memo1那里来的

还请高手帮帮忙
wangxuelid 2008-01-02
  • 打赏
  • 举报
回复
var
x: TfrxMemoView;
Begin
x:=frxReport1.FindObject('Memo1') as TfrxMemoView;//报表名称frxReport1
x.Memo.Text:=:='[SUM( <ADOQuery1."'+Trim(ADOQuery2.FieldByName('fields').AsString)+'"> ,MasterData1)]';//X即为memo1
End;
wangxuelid 2008-01-02
  • 打赏
  • 举报
回复
Memo.Text //修改为momo1.memo.text
cncharles 2008-01-02
  • 打赏
  • 举报
回复
SUM能这样用吗?

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧