各位大大:
我使用三階的方式來存取資料....
當我一筆一筆寫回資料庫後,dbgrid可以正常的顯示更新很的資料....
但是當我一次全部寫回的時候,資料是有更新成功,但是dbgrid卻無法
正常的捲動了.....我原本以為是指標的位置跑掉了...但是加了bookmark
後還是一樣.....請問我要怎麼解決這個問題....謝謝!


[code delphi]
with cdsTmp do
begin
DisableControls;
open;
First;
while not Eof do
Delete ;

lbBookMark:=getbookmark;
iRow := 2;
while StrToIntDef(MyExcel.WorkBooks[1].WorkSheets[1].Cells[iRow, 1], 0)>0 do
begin
Append;
FieldByName('prodspec').Value := MyExcel.WorkBooks[1].WorkSheets[1].Cells[iRow, 2];
FieldByName('incstd').Value := MyExcel.WorkBooks[1].WorkSheets[1].Cells[iRow, 3];
FieldByName('odmax').AsFloat := StrToFloatDef(MyExcel.WorkBooks[1].WorkSheets[1].Cells[iRow, 4],0);
FieldByName('odstd').Value := StrToFloatDef(MyExcel.WorkBooks[1].WorkSheets[1].Cells[iRow, 5],0);
FieldByName('odmin').Value := StrToFloatDef(MyExcel.WorkBooks[1].WorkSheets[1].Cells[iRow, 6],0);
FieldByName('thickmax').Value := StrToFloatDef(MyExcel.WorkBooks[1].WorkSheets[1].Cells[iRow, 8],0);
FieldByName('thickstd').Value := StrToFloatDef(MyExcel.WorkBooks[1].WorkSheets[1].Cells[iRow, 9],0);
FieldByName('thickmin').Value := StrToFloatDef(MyExcel.WorkBooks[1].WorkSheets[1].Cells[iRow, 10],0);
FieldByName('mthickmax').Value := StrToFloatDef(MyExcel.WorkBooks[1].WorkSheets[1].Cells[iRow, 11],0);
FieldByName('mthickstd').Value := StrToFloatDef(MyExcel.WorkBooks[1].WorkSheets[1].Cells[iRow, 12],0);
FieldByName('mthickmin').Value := StrToFloatDef(MyExcel.WorkBooks[1].WorkSheets[1].Cells[iRow, 13],0);
FieldByName('rstat').Value :=' ';
FieldByName('adduser').Value :=Trim(UserID);
FieldByName('addtime').Value :=now;
Post;
// ApplyUpdates(-1);
Inc(iRow);
end;

res := (ApplyUpdates(0) = 0); //有問題
if res = False then
ErpDlgMsg(['%S'],['存檔失敗'], True) // 存檔失敗
else
ErpDlgMsg(['%S'],['存檔成功'], True);
GotoBookMark(lbBookMark);
EnableControls;
first;
end;

[/code]

編輯記錄

有試過在更新完後再把DataSet關閉打開一次嗎？

我有試過close再open...
狀況還是一樣.......
===================引 用 GrandRURU 文 章===================
有試過在更新完後再把DataSet關閉打開一次嗎？

不好意思....問題找到了......
我在ErpDlgMsg這個function對dataset做了abort....
才導致這個錯誤........