前輩您好, 小弟有個問題想請前輩指導,DBGrid加總問題!! |
答題得分者是:chih
|
Ethan
版主 發表:101 回覆:170 積分:78 註冊:2006-07-05 發送簡訊給我 |
前輩您好, 小弟有個問題想請前輩指導,DBGrid加總問題!! 1.從資料庫取出的資料有很多筆'物品','金額'.如下表:
----------------------------------------------
|物品 |單價 |數量 |金額 |
----------------------------------------------
|襪子 |299 |3 |897 |
----------------------------------------------
|皮鞋 |3200 |3 |9600 |
----------------------------------------------
......很多項...
----------------------------------------------
|皮夾 |2000 |1 |2000 |
---------------------------------------------- -------------------
|DBEdit1 | <--放入總金額
-------------------
#上面各物品的金額我是在Query裡增加一個計算欄位,金額=(單價*數量); 2.至於總金額方面我就不曉得該怎麼算出來(昏倒@@).
3.DBGrid加總出來的總金額要放在DBEdit1裡. 請前輩幫忙指導, 感恩!!感恩~~
|
T.J.B
版主 發表:29 回覆:532 積分:497 註冊:2002-08-14 發送簡訊給我 |
|
pprayer
高階會員 發表:35 回覆:185 積分:174 註冊:2002-03-13 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
貼一段我的做法給你參考看看...在Detailafterpost事件...
前題是你的DBGrid是Detail...
procedure TForm1.DetailSQLAfterPost(DataSet: TDataSet);
var
Lock_Record: TBookMark;
WTOTAL_PRICE: REAL;
begin
Lock_Record := DetailSQL.GetBookMark;
DetailSQL.DisableControls;
DetailSQL.first;
WTOTAL_PRICE:= 0;
while not DetailSQL.eof do
begin
//加總DBGRID的金額
WTOTAL_PRICE := WTOTAL_PRICE DetailSQLPRICE.Value;
DetailSQL.Next;
end;
DetailSQL.first;
DetailSQL.EnableControls;
MasterSQL.Edit;
MasterSQLtol_price.Value := WTOTAL_PRICE;
DetailSQL.FreeBookMark(Lock_Record);
end;
試看看吧..不知道是不是你要的..
如有錯誤敬請指正..
chih..
發表人 -
|
Ethan
版主 發表:101 回覆:170 積分:78 註冊:2006-07-05 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |