处理dbgrid多行选择数据出错。提示List index out of bounds (1)。

步调试时，在s:=DataModule2.ADOQuery1.fieldbyname('bookname').AsString;这句出现的错误。

如果虚线中的内容不加入则正常，请诸位看看问题在哪？

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
bookmarklist:tbookmarklist;
bookmark:tbookmarkstr;
s:string;
begin
bookmark:=DataModule2.ADOQuery1.Bookmark;
try
listbox1.Clear;
bookmarklist:=tbookmarklist.Create(nil);
bookmarklist:=dbgrid1.SelectedRows;
for i:=0 to bookmarklist.Count-1 do
begin
DataModule2.ADOQuery1.Bookmark:=bookmarklist[i];
s:=DataModule2.ADOQuery1.fieldbyname('bookname').AsString;
listbox1.Items.Add(s); //这行用于测试能否得到选定行的数据

//----------下面的数据处理语句加上则出错----------
DataModule2.ADOQuery1.CLose;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('update book set bookmoney = 666 where bookname=:s');
DataModule2.ADOQuery1.execSQL;
//----------

end;
finally
DataModule2.ADOQuery1.bookmark:=bookmark;
end;
end;
----------------------------------------------
--------------------------------------------------------------------------------

//----------下面的数据处理语句加上则出错----------
DataModule2.ADOQuery1.CLose;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('update book set bookmoney = 666 where bookname=:s');
DataModule2.ADOQuery1.execSQL;

加上这句后，你的原来的数据集已经丢失了。再去访问原来的指针肯定会出错的。因为已经不存了。

解决方法，再增加一个 adoquery 来处理更新。