DBGrid1.Options:= DBGrid1.Options+[dgMultiSelect]; //先设置DBGrid1的多选属性为True
if DBGrid1.SelectedRows.Count>0 then
begin
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
if Edit1.Text='' then
Edit1.Text:=trim(FieldValues['CODE'])
else
Edit1.Text:=Edit1.Text+','+trim(FieldValues['CODE']);
end;
end