var
bookmarklist :tbookmarklist;
bookmark : tbookmarkstr;
bookmark :=table1.bookmark;
try
listbox1.items.clear;
bookmarklist :=dbgrid1.selectedrows;
for i :=0 to bookmarklist.count-1 do
begin
adotable1.bookmark :=bookmarklist[i];
listbox1.items.add(adotable1.fieldbyname(' ').asstring;
end;
finally
adotable1.bookmark :=bookmark;
end;
end;
遍历所选记录