全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:749
推到 Plurk!
推到 Facebook!

請問一下dbgrid多重計算和讓使用者可輸入多比資料應該如何使用!!

尚未結案
suzukiyamaru
一般會員


發表:18
回覆:8
積分:5
註冊:2003-06-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-10-12 20:11:53 IP:218.160.xxx.xxx 未訂閱
大大你好!! 當使用dbgrid時要是有多同資料要計算時應該要如何使用!!請大大教一下 price:=table2.Fields[3].AsInteger; amount:=table2.Fields[5].AsInteger; label9.Caption:=inttostr(price*amount) ; 這樣只能算出一筆的資料 但是要是有2筆資料就算不出來了!! 問題二就是要如何讓使用者可以對dbgird輸入2筆以上的資料因為當程式執行時只有在資料庫中有多筆資料時才會顯示出多筆~但是在程式執行時卻沒辦法讓資料庫中多下一行讓使用者輸入下一筆的多重資 料!!請大大幫忙解答
a6475
高階會員


發表:67
回覆:230
積分:154
註冊:2002-09-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-10-12 23:01:39 IP:61.229.xxx.xxx 未訂閱
可將所有資料放到陣列計算如下:  
procedure TForm1.Button1Click(Sender: TObject);
var piece,Amount : array of Integer; //動態陣列
    i : Integer;
begin
  SetLength(piece,tab1.RecordCount 1);
  SetLength(Amount,tab1.RecordCount 1);  //設定動態陣列大小
  for i := 0 to tab1.RecordCount -1 do begin
    piece[i] := tab1['piece'];
    Amount[i] := tab1['Amount'];
    Showmessage(IntTostr(piece[i] * Amount[i]));
    tab1.Next;
  end;
 
第二個問題: 看不太懂你的意思,如是是新增資料,可下tab1.Insert; 就可以新增一筆資料。 ..-----------βλμε------------..
◎Oo月夜 光明 藍更愁oO◎
藍調月光城v4:http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調.月光):http://mypaper2.ttimes.com.tw/user/a6475
------
月夜 光明 藍更愁
系統時間:2024-09-10 23:05:16
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!