加入NewPage發生不正常跳頁... |
|
尚未結案
|
|
alan01
一般會員   發表：4 回覆：4 積分：1 註冊：2003-05-27 發送簡訊給我 |
在QuickReport中設定Columns為3
但若
procedure TReport_Line_Amount_Form.DetailBand1BeforePrint(
Sender: TQRCustomBand; var PrintBand: Boolean);
begin
if Pre_Line_REMx<>Line_Amount_Form.Total_Sum_Query.FieldByName('Line_REMx').AsString then
begin
Custom_QRep.NewPage;
Pre_Line_REMx:=Line_Amount_Form.Total_Sum_Query.FieldByName('Line_REMx').AsString;
end;
end;
在BeforePrint加入NewPage(),則有些頁才一欄或二欄即換頁(不正常,因為並不是我設定換頁的條件)
若取消Custom_QRep.NewPage,則文件又可正確分為3欄。
請各位先進幫在下解決此奇怪現象,謝謝。
|
|
pprayer
高階會員  發表：35 回覆：185 積分：174 註冊：2002-03-13 發送簡訊給我 |
|
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
|
|
T.J.B
版主 發表：29 回覆：532 積分：497 註冊：2002-08-14 發送簡訊給我 |
引言: 在QuickReport中設定Columns為3 但若 procedure TReport_Line_Amount_Form.DetailBand1BeforePrint( Sender: TQRCustomBand; var PrintBand: Boolean); begin if Pre_Line_REMx<>Line_Amount_Form.Total_Sum_Query.FieldByName('Line_REMx').AsString then begin Custom_QRep.NewPage; Pre_Line_REMx:=Line_Amount_Form.Total_Sum_Query.FieldByName('Line_REMx').AsString; end; end; 在BeforePrint加入NewPage(),則有些頁才一欄或二欄即換頁(不正常,因為並不是我設定換頁的條件) 若取消Custom_QRep.NewPage,則文件又可正確分為3欄。 請各位先進幫在下解決此奇怪現象,謝謝。是不是判斷句的問題 if Pre_Line_REMx<>Line_Amount_Form.Total_Sum_Query.FieldByName('Line_REMx').AsString 是'<>'正確 還是 '=' 才是要判斷的 天行健 君子當自強不息~~@.@
------
天行健 君子當自強不息~~@.@ |
|
alan01
一般會員 發表：4 回覆：4 積分：1 註冊：2003-05-27 發送簡訊給我 |
發表時間：2003-10-04 21:33:05
IP:61.221.xxx.xxx 未訂閱
系統時間：2024-05-17 5:19:42
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |