加入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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |