我的form1有IBDatabase1,IBTransaction1,IBDataSet1,DataSource1,dbgrid1,及許多個dbedit,因dbedit只能顯示一筆記錄之各欄位值,所以加入dbgrid以一次顯示多筆記錄,每個dbedit及dbgrid之datasource屬性均指到ibdataset1,form1有一button1其button1click處理程序為

begin
IBTransaction1.rollback;
if ibdataset1.active=false then
ibdataset1.open;
end;

當在runtime時,我click這button1時,ibdataset1之recordcount=2或3或4,端視dbgrid1之height之值,此時若呼叫ibdataset1之Last方法會產生一錯誤訊息:'Grid index out of range',錯誤類別名:'EInvalidGridOperation',且ibdataset1並無移到最後一筆記錄,但若再次呼叫Last方法,ibdataset1才會移到最後一筆記錄,為什麼會這樣呢?


但我把整個程式原始碼拿到另一部電腦重新編譯,並click這button1時,然後在呼叫ibdataset1之Last方法居然不會產生錯誤訊息,且ibdataset1會移到最後一筆記錄,我重覆試了好幾次結果一樣都正常,為什麼會這樣呢?


我兩部電腦之軟體都一樣是
1.windows xp home版(service pack 3),
2.firebird 2.1版 ,
3.delphi 7 pro版 (update1) ,
請問這問題是出在dbgird1元件還是ibdataset1元件還是firebird還是整個delphi之安裝有不正確之地方還是其他原因呢?

編輯記錄

可找 Delphi 源碼 Grid index out of range 搜尋 SIndexOutOfRange 
通常發生在欄位數量超過。
1. 避免自動動態產生欄位。
2. Open 後加 First 看是否改善。

大概判斷，未經深思

或 Open 前先Close 歸位一下

RootKit 你好:

我知道在open後呼叫next方法或fetchall方法後,在呼叫Last方法就不會有錯誤發生,但呼叫fetchall有重大缺點是會取出全部記錄而影響效率,呼叫next就沒有大問題,我只是不解,為何一部電腦沒這問題,而另一部電腦卻會有.

===================引 用 RootKit 文 章===================
或 Open 前先Close 歸位一下