前輩您好, 小弟有個問題想請前輩指導,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 發送簡訊給我 |
發表時間：2002-10-04 09:35:15
IP:61.218.xxx.xxx 未訂閱
系統時間：2024-05-06 22:13:11
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |