Bookmark問題 |
|
corey
一般會員 發表:34 回覆:44 積分:14 註冊:2003-04-19 發送簡訊給我 |
請問還有什麼方式可以解決?
此段程式在計算均價(其實你會說利用SQL COMMAND來完成均價,但我有特殊原因必需如下撰寫) 其實我想如果可以COPY某一筆RECORD並且可以修改其某幾個欄位即可解決我的問題,但這方面我不是很了解做法,請大大指教 While Not DB_Oktx_Qry.Eof do begin if bSort_Mark then begin if (DB_Oktx_Qry.FieldByName('O_ACNO').AsInteger <> wk_Acno) or (DB_Oktx_Qry.FieldByName('O_TRADE_KIND').AsInteger <> wk_Trade_Kind) or (DB_Oktx_Qry.FieldByName('O_COMPANY_NO').AsString <> wk_Company_No) then begin if wk_Acno <> 0 then begin wk_Price := wk_Amt / wk_Stock_Nos; DB_Oktx_Qry.GotoBookmark(bm); DB_Oktx_Qry.FieldByName('O_STOCK_NOS_1').AsInteger := wk_Stock_Nos; --> Error message: DataSet not is Edit or Insert mode DB_Oktx_Qry.FieldByName('O_TOTAL_AMT').AsInteger := wk_Amt; tsFile1.Add(GetListData(sFund_Unit,'A01',DB_Oktx_Qry)); DB_Oktx_Qry.FreeBookmark(bm); wk_Stock_Nos := 0; wk_Amt := 0; end; bm := DB_Oktx_Qry.GetBookmark; wk_Acno := DB_Oktx_Qry.FieldByName('O_ACNO').AsInteger; wk_Trade_Kind := DB_Oktx_Qry.FieldByName('O_TRADE_KIND').AsInteger; wk_Company_No := DB_Oktx_Qry.FieldByName('O_COMPANY_NO').AsString; wk_Stock_Nos := wk_Stock_Nos DB_Oktx_Qry.FieldByName('O_STOCK_NOS_1').AsInteger; wk_Amt := wk_Amt DB_Oktx_Qry.FieldByName('O_TOTAL_AMT').AsInteger; end; end; DB_Oktx_Qry.Next; end; |
whyzn
中階會員 發表:46 回覆:149 積分:54 註冊:2002-06-16 發送簡訊給我 |
是否要把 DB_Oktx_Qry 的 requestLive 設為 true
而且???????????????? DB_Oktx_Qry.GotoBookmark(bm); DB_Oktx_Qry.Edit; ???????????????? DB_Oktx_Qry.FieldByName('O_STOCK_NOS_1').AsInteger := wk_Stock_Nos; --> Error message: DataSet? DB_Oktx_Qry.POst; 試試 ===================引 用 文 章=================== 請問還有什麼方式可以解決? 此段程式在計算均價(其實你會說利用SQL COMMAND來完成均價,但我有特殊原因必需如下撰寫) 其實我想如果可以COPY某一筆RECORD並且可以修改其某幾個欄位即可解決我的問題,但這方面我不是很了解做法,請大大指教 ? While Not DB_Oktx_Qry.Eof do? begin ??????? if bSort_Mark then begin ?????????? if (DB_Oktx_Qry.FieldByName('O_ACNO').AsInteger <> wk_Acno) or ????????????? (DB_Oktx_Qry.FieldByName('O_TRADE_KIND').AsInteger <> wk_Trade_Kind) or ????????????? (DB_Oktx_Qry.FieldByName('O_COMPANY_NO').AsString <> wk_Company_No) then begin ????????????? if wk_Acno <> 0 then begin ???????????????? wk_Price := wk_Amt / wk_Stock_Nos; ???????????????? DB_Oktx_Qry.GotoBookmark(bm); ???????????????? DB_Oktx_Qry.FieldByName('O_STOCK_NOS_1').AsInteger := wk_Stock_Nos; --> Error message: DataSet?not is Edit or Insert mode ???????????????? DB_Oktx_Qry.FieldByName('O_TOTAL_AMT').AsInteger := wk_Amt; ???????????????? tsFile1.Add(GetListData(sFund_Unit,'A01',DB_Oktx_Qry)); ???????????????? DB_Oktx_Qry.FreeBookmark(bm); ???????????????? wk_Stock_Nos := 0; wk_Amt := 0;???????????????? ????????????? end; ????????????? bm := DB_Oktx_Qry.GetBookmark; ????????????? wk_Acno := DB_Oktx_Qry.FieldByName('O_ACNO').AsInteger; ????????????? wk_Trade_Kind := DB_Oktx_Qry.FieldByName('O_TRADE_KIND').AsInteger; ????????????? wk_Company_No := DB_Oktx_Qry.FieldByName('O_COMPANY_NO').AsString; ????????????? wk_Stock_Nos := wk_Stock_Nos DB_Oktx_Qry.FieldByName('O_STOCK_NOS_1').AsInteger; ????????????? wk_Amt := wk_Amt DB_Oktx_Qry.FieldByName('O_TOTAL_AMT').AsInteger; ?????????? end; ??????? end; ???? DB_Oktx_Qry.Next; ? end;
------
●○○○○○●○○○○○● 竹密不妨水過,山高無礙雲飛 |
corey
一般會員 發表:34 回覆:44 積分:14 註冊:2003-04-19 發送簡訊給我 |
|
pgdennis
資深會員 發表:41 回覆:526 積分:443 註冊:2002-05-23 發送簡訊給我 |
|
corey
一般會員 發表:34 回覆:44 積分:14 註冊:2003-04-19 發送簡訊給我 |
===================引 用 文 章=================== 那為何不用clientdataset呢? 可以edit,post都沒問題(無論你SQL join多少table)..不要applyupdate就好 這樣就可解決你的問題! 非常感謝pgdennis大大的指教.... 個人這幾天也研究了M/S架構,也爬文了KTOP想關文章(ClientDataSet),可能大部份時間都在寫C/S 再加上對ClientDataSet元件不是很了解. 小弟有幾個地方不解 大部份文章都提到ClientDataSet.ApplyUpdate即可更新資料庫(但我不需要做這一動作) 目前我個人規劃 TADOQuery --> TDataSetProvider-->TClientDataSet 1.那我要如何讀資料 adoquery.next 嗎? 2.一樣如下給值嗎? DB_Oktx_Qry.FieldByName('O_STOCK_NOS_1').AsInteger := wk_Stock_Nos; DB_Oktx_Qry.FieldByName('O_TOTAL_AMT').AsInteger := wk_Amt; 還請各位大大指教 |
corey
一般會員 發表:34 回覆:44 積分:14 註冊:2003-04-19 發送簡訊給我 |
|
corey
一般會員 發表:34 回覆:44 積分:14 註冊:2003-04-19 發送簡訊給我 |
|
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |