請問一下大大 假如我dbgrid中有3筆資料時,當我按下計算的button時產生計算的結果~但是同時我dbgrid中的資料也只剩下2筆了!!但是所計算的值還是3筆時所計算的答案~是否我程式有問題呢!請各位大大幫忙看一下 procedure Torder.Button2Click(Sender: TObject); var price,amount:integer; begin price:=0; amount:=0; table2.First; While not table2.Eof do begin price:=price table2.Fields[3].AsInteger; amount:=amount table2.Fields[5].AsInteger; table2.Next; end; label9.Caption:=inttostr(price*amount) ; end;

是不是 DBGrid 顯示的問題呢? 可以試著在迴圈後再加一個 table2.First; 試看看!

您好!    您的程式碼應沒有問題.    迴圈結束后, 資料錄指針會在末筆資料上(即第三筆資料), 第一筆資料可能是沒有顯示出來, 除了timhuang大大提供的方法之外, 也可試試在迴圈結束后加上: Table2.Close; Table2.Open; 或者: Table2.Refresh; 來更新顯示的資料.    參考看看!    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

suzukiyamaru 你好: 可以告知dbgrid與table2的關係,跟table2裡面查詢的條件嗎?

------
======================
昏睡~
不昏睡~
不由昏睡~

procedure Torder.Button2Click(Sender: TObject); var price,amount:integer; begin price:=0; amount:=0; table2.First; While not table2.Eof do begin price:=price table2.FieldByName('A').AsInteger;//紅色部分請改為你相對應的欄名 amount:=amount table2.FieldByName('B').AsInteger; table2.Next; end; label9.Caption:=inttostr(price*amount) ; end; TRY TRY SEE.. 發表人 - chih 於 2003/11/26 17:21:22

會不會你的table2的event存在不該有的程式~~？你最好逐行trace一下你的程式~~ 我懂的不多，懂的也不盡然是最佳的寫法，但求我懂的東西，能在大家的討論中，愈辯愈明~

剛剛我試過各位大大所說的方法可是還是不能也!!怎麼辦呢! 我的table2也沒有其他的event

各位熱心的大大們 我又發現了一個新問題了! 就是說當我資料只有一筆時 ex:單價=10訂購數量=10 算出的總金額=100 但當我變2筆時 ex:編號一 單價=10訂購數量=10 算出的總金額=100 編號二 單價=10訂購數量=10 算出的總金額=100 算出的總金額卻變為400

這樣真的看不出來問題在那裡, 可以將你的程式上傳上來嗎? 另外你的資料庫是什麼種類的呢?

For 2nd Question: Wrong Calculation Procedure in While-loop Make another variable recordAmount : Double; in While-loop For 1st Question: Try To Pop out a Simple MessageBox at the end of Button2Click Event Return Number Of Record In the TDBGrid.... If it is the same record counts, try Refresh... if it is not, something wrong in your codes

檢查一下你的程式里面是不是有錯誤或多餘的迴圈(for .. 或while) 不過建議你把你的程式貼出來先，讓大家幫你分析囉 如果你這樣把table逐筆讀出逐筆計算的話，會不會太傷效率咧？可能的話，你用個query元件來做這樣的事，用一句SQL查詢句就可以完成你要的工作，效率會差很多哦~~~~ query2.close; query2.sql.clear; query2.sql.add('select sum(price*amount) as totalsum from table2'); query2.sql.add('where orderno>=0 and orderno<=100'); //示範查詢條件，依自己的需求來定 query2.execsql; query2.open; label9.caption:=query2.fieldbyname('totalsum').asString; query2.close; 我懂的不多，懂的也不盡然是最佳的寫法，但求我懂的東西，能在大家的討論中，愈辯愈明~

japhenchen 謝謝你已經可以跑了~我想應該是我資料庫的問題^^