如題 請問如何讓兩個不同的DBF 相同的欄位 同步修改?!
就是 我有個進貨的dbf 然後我把它不同的產品的另外做了dbf
因為原本我做 三個產品個別的總成本加總 但是算出來的金額有誤
我原本是這麼寫的
procedure TForm1.Button7Click(Sender: TObject);
var i, xCalTCCoffee: integer;
begin
dbPur.Filtered:= False;
dbPur.Filter:= edCFP.Text; // edCFP.Text的內容是GOODSNAME='咖啡豆'
dbPur.Filtered:= True;
dbPur.First;
dbPur.Edit;
xTCCoffee:= 0;
for i:= 1 to dbPur.RecordCount do begin
xCalTCCoffee:= dbPur.FieldByName('GOODSTCOST').AsInteger;
xTCCoffee:= xCalTCCoffee xTCCoffee;
dbPur.next;
end;
listbox1.items.add('咖啡豆總成本：' inttostr(xTCCoffee) '元');
end;

這個正確的金額假設說應該是100000 但是跑出來的卻是243560 等等的錯誤數字
請問這在算的時候 是哪邊出錯了?!

編輯記錄

  xCalTCCoffee:= dbPur.FieldByName('GOODSTCOST').AsInteger;
dbPur.next;
end;

1.試試改成這樣
dbPur.Active: = True;
dbPur.Filtered:= True;
dbPur.Filter:= edCFP.Text; // edCFP.Text的內容是GOODSNAME='咖啡豆'
2.請先檢查所 filter 的記錄是不是都包含 '咖啡豆', 我覺得很有可能包含其他記錄
3.使用 do while 方式會比較好, 因為 RecordCount 不一定所有的資料庫都支援

===================引 用 ep20 文 章===================
如題 請問如何讓兩個不同的DBF 相同的欄位 同步修改?!
就是 我有個進貨的dbf 然後我把它不同的產品的另外做了dbf
因為原本我做 三個產品個別的總成本加總 但是算出來的金額有誤
我原本是這麼寫的
procedure TForm1.Button7Click(Sender: TObject);
var i, xCalTCCoffee: integer;
begin
dbPur.Filtered:= False;
dbPur.Filter:= edCFP.Text; // edCFP.Text的內容是GOODSNAME='咖啡豆'
dbPur.Filtered:= True;
dbPur.First;
dbPur.Edit;
xTCCoffee:= 0;
for i:= 1 to dbPur.RecordCount do begin
xCalTCCoffee:= dbPur.FieldByName('GOODSTCOST').AsInteger;
xTCCoffee:= xCalTCCoffee xTCCoffee;
dbPur.next;
end;
listbox1.items.add('咖啡豆總成本：' inttostr(xTCCoffee) '元');
end;

這個正確的金額假設說應該是100000 但是跑出來的卻是243560 等等的錯誤數字
請問這在算的時候 是哪邊出錯了?!

1 你在回圈前用 edit, 跳到下一筆前, 會自動 post, 
2 trace 一下

dbPur.first;
while not dbPur.eof do
begin
................
WriteErrorLog( dbPur.FieldByName('GOODSName').AsString ' ' dbPur.FieldByName('GOODSTCOST').AsString ', ' IntToStr(xCalTCCoffee) );
dbPur.next;
end;


procedure WriteErrorLog(strMessage:string);
var hErrorLog:TextFile;
strLogFileName:String;
begin
strLogFileName:=ExtractFilePath(Application.ExeName) 'ERROR.LOG';
if not FileExists(strLogFileName) then
begin
AssignFile(hErrorLog,strLogFileName);
ReWrite(hErrorLog);
WriteLn(hErrorLog,'Start Here');
CloseFile(hErrorLog);
end;
AssignFile(hErrorLog,strLogFileName);
Append(hErrorLog);
WriteLn(hErrorLog,DateTimeToStr(Now) ',' strMessage);
CloseFile(hErrorLog);
end;


===================引 用 ep20 文 章===================
如題 請問如何讓兩個不同的DBF 相同的欄位 同步修改?!
就是 我有個進貨的dbf 然後我把它不同的產品的另外做了dbf
因為原本我做 三個產品個別的總成本加總 但是算出來的金額有誤
我原本是這麼寫的
procedure TForm1.Button7Click(Sender: TObject);
var i, xCalTCCoffee: integer;
begin
dbPur.Filtered:= False;
dbPur.Filter:= edCFP.Text; // edCFP.Text的內容是GOODSNAME='咖啡豆'
dbPur.Filtered:= True;
dbPur.First;
dbPur.Edit;
xTCCoffee:= 0;
for i:= 1 to dbPur.RecordCount do begin
xCalTCCoffee:= dbPur.FieldByName('GOODSTCOST').AsInteger;
xTCCoffee:= xCalTCCoffee xTCCoffee;
dbPur.next;
end;
listbox1.items.add('咖啡豆總成本：' inttostr(xTCCoffee) '元');
end;

這個正確的金額假設說應該是100000 但是跑出來的卻是243560 等等的錯誤數字
請問這在算的時候 是哪邊出錯了?!

我試試看 再把結果貼上來 謝謝你們 有問題我會再回復