全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1094
推到 Plurk!
推到 Facebook!

如何雙擊fastreport第一頁, 進入另一個子報表?

尚未結案
pedro
尊榮會員


發表:152
回覆:1187
積分:892
註冊:2002-06-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-06-16 10:56:42 IP:210.61.xxx.xxx 未訂閱
我的報表
                    半年客戶消費情況
名次  編號  姓名  一月  二月  三月  四月  五月  六月  合計
1     0010  xxxx 30  20   10   10   10   10   90
....
在雙擊1筆資料時希望能帶出另一個報表 SqlText:='select * from GetCsYearDetail(編號,年度)' 產生這樣的報表
           消費地點統計
編號  姓名  消費日期  消費地點  消費金額
0010  xxxx  20040103  台北      10
0010  xxxx  20040120  台中      10
0010  xxxx  20040125  高雄      10
0010  xxxx  20040213  .........
.......
請問有經驗的前輩, 我應該怎麼做, 能否提示一下? 謝謝您!
chih
版主


發表:48
回覆:1186
積分:639
註冊:2002-04-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-06-16 11:16:38 IP:218.165.xxx.xxx 未訂閱
引言: 我的報表 [code] 半年客戶消費情況 名次 編號 姓名 一月 二月 三月 四月 五月 六月 合計 1 0010 xxxx 30 20 10 10 10 10 90 ....
上面這個部份是DBGrid還是???
pedro
尊榮會員


發表:152
回覆:1187
積分:892
註冊:2002-06-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-06-16 11:29:04 IP:210.61.xxx.xxx 未訂閱
chih大大, --半年客戶消費情況 --名次 編號 姓名 一月 二月 三月 四月 五月 六月 合計 這一部份是一張報表在Preview, 我想在preview時, 點 --1 0010 xxxx 30 20 10 10 10 10 90 這一列能進入另一張子報表, 看出0010這個客戶的消費地點統計
chih
版主


發表:48
回覆:1186
積分:639
註冊:2002-04-02

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-06-16 11:47:21 IP:218.165.xxx.xxx 未訂閱
如果你是用QR的話可能沒辦法達到這種功能,可能要轉個方向來做 發表人 - chih 於 2004/06/16 11:50:37
pedro
尊榮會員


發表:152
回覆:1187
積分:892
註冊:2002-06-12

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-06-16 12:07:00 IP:210.61.xxx.xxx 未訂閱
謝謝chih大大, 我用的是FastReport
chinyu
高階會員


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

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-06-18 22:29:26 IP:218.170.xxx.xxx 未訂閱
引言: 我的報表
                    半年客戶消費情況
名次  編號  姓名  一月  二月  三月  四月  五月  六月  合計
1     0010  xxxx 30  20   10   10   10   10   90
....
在雙擊1筆資料時希望能帶出另一個報表 SqlText:='select * from GetCsYearDetail(編號,年度)' 產生這樣的報表
           消費地點統計
編號  姓名  消費日期  消費地點  消費金額
0010  xxxx  20040103  台北      10
0010  xxxx  20040120  台中      10
0010  xxxx  20040125  高雄      10
0010  xxxx  20040213  .........
.......
請問有經驗的前輩, 我應該怎麼做, 能否提示一下? 謝謝您!
在frReport的OnObjectClick Events 可達到此功能(不過是 click)
procedure TForm1.frReport1ObjectClick(View: TfrView);
begin
//  MessageDlg(View.Memo[0], mtWarning, [mbOK], 0);
  由View.memo得到key值來查詢資料(所以只能click key值的TfrView)
  SQL 查詢
  ...
  ...
  ...
  frReport1.LoadFromFile('t2.frf');
  frReport1.ShowReport;
end;
題外話,應該是用dbgrid取代第一個報表才好吧。
pedro
尊榮會員


發表:152
回覆:1187
積分:892
註冊:2002-06-12

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-06-21 14:44:15 IP:210.61.xxx.xxx 未訂閱
謝謝chinyu大大, 試出來了
procedure TfmReports.frRaceObjectClick(View: TfrView);
begin
  if View.Name<>'Memo2' then exit;
   ....
  frReport3.ShowReport;
end;
系統時間:2024-05-19 3:57:58
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!