線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1770
推到 Plurk!
推到 Facebook!

FR3分组报表问题

答題得分者是:chinyu
ntjrr
高階會員


發表:240
回覆:312
積分:110
註冊:2005-04-24

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-07-24 07:08:10 IP:222.184.xxx.xxx 訂閱
在FR3中,用了groupheader,以项目名称为划份依据。我在groupheader中放了项目名称这个字段,完全分组显示正确,但我想对同一组中的一个金额字段累计时,也就是sum金额,这个MEMO放在groupheader中就无法显示,放在groupfooter中就能正常统计和显示。但这样就不漂亮了,变成了项目名称一行,然后下面是本组数据,然后最下面是合计,我要的效果是项目名称和合计在同一水平线上,不要上下隔开。谢谢。
------
我的编程起步于ktop,我将永远支持ktop
chinyu
高階會員


發表:12
回覆:157
積分:153
註冊:2002-06-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-07-25 08:51:28 IP:192.192.xxx.xxx 訂閱
demos\main 中就有你要的功能,請照抄就可以了
ntjrr
高階會員


發表:240
回覆:312
積分:110
註冊:2005-04-24

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-07-25 11:12:12 IP:222.184.xxx.xxx 訂閱
我是看了DEMOS中的做的,那上面的就是我说的那样做的,达不到项目名称和金额在一行的效果,只能将金额合计放在下面。
===================引 用 chinyu 文 章===================
demos\main 中就有你要的功能,請照抄就可以了
------
我的编程起步于ktop,我将永远支持ktop
chinyu
高階會員


發表:12
回覆:157
積分:153
註冊:2002-06-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-07-25 11:47:45 IP:192.192.xxx.xxx 訂閱
請看DEMO\45.FR3(這是是FR4的DEMO編號, 節點 Dialogs and script\Totals in group header),在FR2.x時就有了,FR3我現在沒有,不知是否為 45.FR3
ntjrr
高階會員


發表:240
回覆:312
積分:110
註冊:2005-04-24

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-07-25 13:35:37 IP:222.184.xxx.xxx 訂閱
我看到了,我原来没看到这一节,在上面看到的另一节。
------
我的编程起步于ktop,我将永远支持ktop
ntjrr
高階會員


發表:240
回覆:312
積分:110
註冊:2005-04-24

發送簡訊給我
#6 引用回覆 回覆 發表時間:2007-07-25 16:53:32 IP:222.184.xxx.xxx 訂閱
真正试时发现一个问题,所有的脚本代码都按上例子上写了,运行时也没有错误提示,前面的中文sum能显示出来,数字就是不出来,但眉脚上的合计是出来的。
procedure Band7OnBeforePrint(Sender: TfrxComponent);
begin
Set(, *)>);
end;

procedure Memo4OnBeforePrint(Sender: TfrxComponent);
begin
if Engine.FinalPass then
Memo4.Text := 'Sum: ' VarToStr(Get());
end;

代码好象显示不全,反正和例子上一样的,只是替代了相应的字段。不懂除了这边的代码,其他还有无地方要设置。

------
我的编程起步于ktop,我将永远支持ktop
編輯記錄
ntjrr 重新編輯於 2007-07-25 16:56:51, 註解 無‧
ntjrr
高階會員


發表:240
回覆:312
積分:110
註冊:2005-04-24

發送簡訊給我
#7 引用回覆 回覆 發表時間:2007-07-25 17:14:11 IP:222.184.xxx.xxx 訂閱
procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);
begin
Set(, *)>);
end;

procedure Memo11OnBeforePrint(Sender: TfrxComponent);
begin
if Engine.FinalPass then
Memo11.Text := 'Sum: ' VarToStr(Get());
end;

------
我的编程起步于ktop,我将永远支持ktop
編輯記錄
ntjrr 重新編輯於 2007-07-25 17:18:39, 註解 無‧
系統時間:2024-04-24 23:47:22
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!