如何算出總計跟小計 |
|
尚未結案
|
|
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 發送簡訊給我 |
發表時間：2005-02-12 20:04:57
IP:210.192.xxx.xxx 未訂閱
系統時間：2024-05-17 16:19:50
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |