如何算出總計跟小計 |
尚未結案
|
kkmandy
一般會員 發表:2 回覆:4 積分:1 註冊:2004-06-09 發送簡訊給我 |
|
eric039
中階會員 發表:57 回覆:126 積分:51 註冊:2002-11-30 發送簡訊給我 |
|
kkmandy
一般會員 發表:2 回覆:4 積分:1 註冊:2004-06-09 發送簡訊給我 |
我是要在列印報表時,產生欄位的小計及加總..
我的程式如下:
procedure TYJR18_QP.QRSubDetail1NeedData(Sender: TObject;
var MoreData: Boolean);
var r:integer;
b:boolean;
begin
YJR18_FORM.Query1.Next;
IF YJR18_FORM.Query1.Eof Then BEGIN
IF a<8 THEN BEGIN
a:=a 1;
MOREDATA:=TRUE;
QRDBTEXT4.Enabled:=FALSE;
QRDBTEXT5.Enabled:=FALSE;
QRDBTEXT6.Enabled:=FALSE;
QRDBTEXT7.Enabled:=FALSE;
QRDBTEXT8.Enabled:=FALSE;
QRDBTEXT9.Enabled:=FALSE;
QRDBTEXT10.Enabled:=FALSE;
QRDBTEXT11.Enabled:=FALSE;
QRDBTEXT12.Enabled:=FALSE;
END ELSE BEGIN
MOREDATA:=FALSE;
a:=0;
QRDBTEXT4.Enabled:=TRUE;
QRDBTEXT5.Enabled:=TRUE;
QRDBTEXT6.Enabled:=TRUE;
QRDBTEXT7.Enabled:=TRUE;
QRDBTEXT8.Enabled:=TRUE;
QRDBTEXT9.Enabled:=TRUE;
QRDBTEXT10.Enabled:=TRUE;
QRDBTEXT11.Enabled:=TRUE;
QRDBTEXT12.Enabled:=TRUE;
END;
end else begin
moredata:=true;
IF NOT (a<9) THEN a:=0;
end; begin
i:=i yjr18_form.Query1.fieldbyname('amt_buy').AsFloat;
r:=0;
b:=false;
while (r<=8) and (not b) do begin
r:=r 1; if not yjr18_form.Query1.eof then begin
QRLabel28.Caption:=floattostr(i);
end else begin
QRLabel28.Caption:=floattostr(i); end; end; end;
end;
|
luowy651
高階會員 發表:257 回覆:313 積分:114 註冊:2003-04-09 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |