如何實現上一筆減當前一筆資料 |
答題得分者是:老大仔
|
l730626
一般會員 ![]() ![]() 發表:22 回覆:21 積分:8 註冊:2009-03-29 發送簡訊給我 |
|||||||||||||
老大仔
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:78 回覆:837 積分:1088 註冊:2006-07-06 發送簡訊給我 |
感覺上...好像是作業文...
以StringGrid為例: [code delphi] var i : Integer; procedure TForm1.Button1Click(Sender: TObject); begin if i = 1 then begin StringGrid1.Cells[0, i] := Edit1.Text; i := i 1; end else begin StringGrid1.Cells[0, i] := Edit1.Text; StringGrid1.Cells[1, i] := IntToStr(StrToInt(Edit1.Text) - StrToInt(StringGrid1.Cells[0, i-1])); i := i 1; end end; procedure TForm1.FormCreate(Sender: TObject); begin i := 1; end; [/code] |
||||||||||||
l730626
一般會員 ![]() ![]() 發表:22 回覆:21 積分:8 註冊:2009-03-29 發送簡訊給我 |
|||||||||||||
老大仔
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:78 回覆:837 積分:1088 註冊:2006-07-06 發送簡訊給我 |
不懂...可能要請您再講仔細一點了...
[code delphi] // i要事先宣告好且指定為1 if i = 1 then //第一筆 begin StringGrid1.Cells[0, i] := ADOQuery.Fieldby....asString ADOQuery指往下一筆 i := i 1 end else begin StringGrid1.Cells[0, i] := ADOQuery.Fieldby....asString; StringGrid1.Cells[1, i] := ADOQuery.Fieldby....asString - StrToInt(StringGrid1.Cells[0, i-1])); end [/code] ===================引 用 l730626 文 章=================== 不好意思~這不是作業文拉~ 只是小妹我想畫移動平均的圖~ 所以需要有一欄做計算功能 不好意思~如果是<-什麼東西?DB就是資料庫了啊... 那我應該怎麼改程式碼~才能讓DELPHI抓到上一筆資料去做運算
編輯記錄
老大仔 重新編輯於 2009-11-26 17:34:21, 註解 無‧
|
||||||||||||
P.D.
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
這的確有點棘手, 我不知道sql有沒有這類的公式可以引用, 如果是我處理, 又不知道有什麼方法時, 最直接的方式就是
開兩個table, 一組下表的標準(有calcfield), 一組做locate 搜尋或filter找該筆的下一筆 然後 calcfield 做計算時用兩組 table 來算, 效率並不好, 但可以有結果, 這才是最重要的, 不是嗎? ===================引 用 l730626 文 章===================
我想要實現使用者輸入X值時~MR欄位自動出現與上一個X值相減的數 我的問題是我應該如何抓取上一個x值~ mr欄位我是使用虛擬欄位的方式~ 小妹是初學者~麻煩各位指教~ 只需要給我方法就好了~謝謝 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |