怎麼計算文字檔中的明細檔資料加總之後再寫到主檔中 |
|
答題得分者是：pprayer
|
|
cindyliu
一般會員   發表：16 回覆：18 積分：6 註冊：2008-09-17 發送簡訊給我 |
[code delphi] for iCnt := 0 to slPage.Count - 1 do begin If Copy(slPage.Strings[iCnt],1,1)='H' then begin ttlAMT := 0; sNo := GetNo; // 取得自動編號 sHead := slPage.Strings[iCnt]; if Copy(slPage.Strings[iCnt],1,1)='D' then begin sTemp := slPage.Strings[iCnt]; QueryItem.Append; QueryItem.FieldByName('ORD_NO').AsString := sNo; // 訂單編號 QueryItem.FieldByName('PRD_ID').AsString := Trim(Copy(sTemp,2,15)); // 商品編號 QueryItem.FieldByName('QTY').AsString := Trim(Copy(sTemp,17,4)); // 數量 QueryItem.FieldByName('PRICE').AsString := Trim(Copy(sTemp,21,5)); // 單價 QueryItem.FieldByName('AMT').AsString := Trim(Copy(sTemp,26,8)); // 金額 ttlAMT := ttlAMT StrToFloatDef(Copy(sTemp,26,8),0); // 計算總金額 QueryItem.Post; end; end; [/code] 編輯記錄
cindyliu 重新編輯於 2009-12-04 00:20:31， 註解 無‧
|
|
pprayer
高階會員  發表：35 回覆：185 積分：174 註冊：2002-03-13 發送簡訊給我 |
|
|
cindyliu
一般會員 發表：16 回覆：18 積分：6 註冊：2008-09-17 發送簡訊給我 |
|
|
pprayer
高階會員 發表：35 回覆：185 積分：174 註冊：2002-03-13 發送簡訊給我 |
|
|
cindyliu
一般會員 發表：16 回覆：18 積分：6 註冊：2008-09-17 發送簡訊給我 |
發表時間：2009-12-04 00:17:39
IP:118.166.xxx.xxx 訂閱
系統時間：2024-05-17 6:35:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |