型態轉換問題 |
尚未結案
|
crlin
一般會員 發表:47 回覆:57 積分:20 註冊:2002-07-23 發送簡訊給我 |
我將 Query 查詢出來的結果放到某個 array 中
再將 這個 array assign 給 QuickRep 的 DataSet
然後出現以下型態不相容的訊息
但是 QuickRep2.DataSet 不是本來就可以是 某個Query 的結果嗎 ??? type
TCach_Buf = array [1..8] of TQuery; theCach_Buf : TCach_Buf; theCach_Buf[i] := DataModule64.Query1; Form37.QuickRep2.DataSet := theCach_Buf; ==> Incompatible types: 'TDataSet' and 'TCach_Buf'
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
crlin
一般會員 發表:47 回覆:57 積分:20 註冊:2002-07-23 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
crlin
一般會員 發表:47 回覆:57 積分:20 註冊:2002-07-23 發送簡訊給我 |
但在 Object Inspect 中可以發現
QuickRep2.DataSet 可以是 Query1 啊
那應該是代表整個 Query1 的所有 record 吧 !
我一開始是把 Query1 的 record 一個一個 assign 給 theCach_Buf[i];
所以 theCach_Buf 不就代表整個 Query1 嗎 ?
為什麼不能把 theCach_Buf assign 給 QuickRep2.DataSet 呢 ?
這與 把整個 Query1 assign 給 QuickRep2.DataSet 不是相同的道理嗎 ?
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
andersonhsieh
版主 發表:33 回覆:531 積分:439 註冊:2002-06-10 發送簡訊給我 |
|
ccchen
版主 發表:61 回覆:940 積分:1394 註冊:2002-04-15 發送簡訊給我 |
我嘗試依你的程式解釋給你看, 相信不是你的原意
TCach_Buf = array [1..8] of TQuery;
TCach_Buf定義一個array共8個參考指標(1到8不含0), 每一參考指標均可指向一個TQuery(不是Record buffer) theCach_Buf : TCach_Buf;
theCach_Buf意義同上 theCach_Buf[i] := DataModule64.Query1;
i尚未定義, 假設i=0則代表第一個參考指標指向DataModule64.Query1
(是query不是record buffer) Form37.QuickRep2.DataSet := theCach_Buf;
將一個array assign給一個DataSet->當然錯了
實際上你可以直接用
Form37.QuickRep2.DataSet := DataModule64.Query1
發表人 - ccchen 於 2002/12/09 21:46:25
|
crlin
一般會員 發表:47 回覆:57 積分:20 註冊:2002-07-23 發送簡訊給我 |
我的目的本來是想將 Query 的結果以每 8 筆資料送到 QuickRep 列印
所以才會以 for loop 一筆一筆將 data assign 到一個 array 中
然後再把這個 array 內的資料 assign 給 QuickRep2.DataSet
以便確定 QuickRep2.DataSet 每次都只能有 8 筆資料 若是直接寫成 Form37.QuickRep2.DataSet := DataModule64.Query1
那就不能保證 QuickRep2.DataSet 只有8 筆了啊 !
|
ccchen
版主 發表:61 回覆:940 積分:1394 註冊:2002-04-15 發送簡訊給我 |
|
crlin
一般會員 發表:47 回覆:57 積分:20 註冊:2002-07-23 發送簡訊給我 |
您提議的方式我之前也有試過, 但發生以下的問題, 所以才會想用 buffer 的方式自行處理, 以下是用 event 所發生的問題 以下是我的報表的格式 PageHeader ==> 每頁的開頭都會印
GroupHeader ==> 每個 Group 開頭才會印
Detail
GroupFooter ==> Group 結束時才會印 我希望每個 Group 結束都要換頁, 且若一個 Group 的 Detail 每 8 行也要換頁, 以下是我目前的做法
設一個變數 recordNum
QuickRep1BeforePrint ==> recordCount:=0;
Detail AfterPrint ==> recordCount := recordCount 1;
if recordCount mod 8 = 0 then
begin
QuickRep1.NewPage;
end;
Group AfterPrint ==> if recordCount mod 8 <> 0 then
QuickRep1.NewPage;
recordCount:=0;
現在發現一個問題
每個 Detail 印完後即使剛好等於 8 行而有換頁, 程式也不會發現這個 Group 是否剛好結束了
若這個 Group 尚未結束, 則換頁後繼續印 Detail record, 且因 Group 尚末結束
所以這一頁的 PageHeader 上的資料仍屬於與上一頁相同的 Group
但若這個 Group 剛好結束, 而你的換頁是在 Detail 印完後馬上換, 等偵測到 Group 結束時卻沒換頁
這時 新一頁的 PageHeader 上的資料仍屬於與上一頁相同的 Group, 但是
Detail record 印出的卻己是下一個 Group 的資料了, 所以看起來就不對 我希望我的報表每頁開頭都會印出這張驗收單的驗收單號
所以驗收單號這個資料必須放在 PageHeader
但這樣當遇到 Group 剛好8 行而在第 8 行換頁時, 因尚未偵測到 Group 己結束,
所以下一頁即使 GroupHeader 和 Detail 都己是新的 Group, 但 PageHeader 仍是舊的 Group
因為 GroupHeader 才是一個Group 的起點
請問各位還有更好的方法嗎 ?
|
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
I have not used QuickReport before, but if you want to create datasets returning 8 rows, here are some suggestion: 1) use Filter on the dataset if you can determine seperate chunk of 8 records according to existing fields 2) use ClientDataSet (i.e. memory table) and fill them as needed
|
crlin
一般會員 發表:47 回覆:57 積分:20 註冊:2002-07-23 發送簡訊給我 |
|
crlin
一般會員 發表:47 回覆:57 積分:20 註冊:2002-07-23 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
crlin
一般會員 發表:47 回覆:57 積分:20 註冊:2002-07-23 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
crlin
一般會員 發表:47 回覆:57 積分:20 註冊:2002-07-23 發送簡訊給我 |
I did call the First method !
the following is my code ! sqlCommand := 'select * from co_in';
Query1.SQL.Clear;
Query1.SQL.ADD(sqlCommand);
Query1.Open; Query1.First;
ClientDataSet1.CreateDataSet;
ClientDataSet1.First;
ShowMessage('ok');
while not Query1.Eof do
begin
for i := 1 to 8 do
begin
if not Query1.Eof then
begin
for j := 1 to Query1.FieldCount do
begin
ClientDataSet1.Edit;
ClientDataSet1.Fields[j-1].AsString := Query1.Fields[j-1].AsString;
ClientDataSet1.Post;
ShowMessage('ok');
end;
Query1.Next;
ClientDataSet1.Next;
end;
end;
end;
ShowMessage(IntToStr(ClientDataSet1.RecordCount));
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
引言: I did call the First method ! the following is my code !I think you should have used Insert to insert a new record.sqlCommand := 'select * from co_in'; Query1.SQL.Clear; Query1.SQL.ADD(sqlCommand); Query1.Open; Query1.First; ClientDataSet1.CreateDataSet; ClientDataSet1.First; ShowMessage('ok'); while not Query1.Eof do begin for i := 1 to 8 do begin if not Query1.Eof then begin ClientDataSet1.Insert; for j := 1 to Query1.FieldCount do begin ClientDataSet1.Fields[j-1].AsString := Query1.Fields[j-1].AsString; end; ClientDataSet1.Post; Query1.Next; ClientDataSet1.Next; end; end; end; ShowMessage(IntToStr(ClientDataSet1.RecordCount)); |
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
引言: 為什麼要多加一個 Group 呢 ??? 不太明白 ! 可否請 hahalin 兄解釋詳細一點呢 ? thanks !!sorry,這麼久回應,因為以前有遇過同樣的問題,客戶要求出貨單表身每十筆 跳頁,那個case用Crystal Report作報表,說說實作過程希望能有幫助, 1.第一個Group用表頭單號欄位(以下稱為gp1), 第二個group用表身的產品編號欄位(以下稱為gp2)。 2.設定gp1的GroupHead每頁顯示,單號變換後跳頁。 3.在Detail區段新增一個系統變數,Deatail每增加一列加1。 4.以您的八筆紀錄跳頁為例,在gp2的GroupFooter判斷系統變數是否到達 八,到達後跳頁並歸零。 萬流歸宗,工具雖然不同,原理是一樣的。 有一個比較"樸實"的做法,不會跟報表工具粘得太緊, 篩選出要列印的區間資料後,由程式控制在表身的資料集 新增一個欄位,填入流水號,然後在QuickReport的相關事件 去判斷除以八是否整除,可以整除就跳頁。 小小的建議,先畫好設計藍圖,不要急著蓋房子, 如果已經蓋好的房子怪怪的,試著拆掉重建, 也許會很不捨,但重建後的成果一定很不錯。 寫報表我常自己先模擬一遍,把自己當成印表機在 腦海裡面印一次再去排,這個方法很"樸實",不過比較能 十拿九穩。 |
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
|
crlin
一般會員 發表:47 回覆:57 積分:20 註冊:2002-07-23 發送簡訊給我 |
|
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
TQRGroup.ReprintOnNewPage
property ReprintOnNewPage : Boolean Description If ReprintOnNewPage is True the group header will be reprinted at the top of every page if a group spans more than one page. ReprintOnNewPage is False by default.
--------------------------------------------------------------------- good mood,good code.
work hard and smart......
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |