在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
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
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论