Delphi DBGrid实现多选

时间：2016-01-16 16:22:25 阅读：178 评论：0 收藏：0 [点我收藏+]

标签：

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

标签：

原文地址：http://www.cnblogs.com/lrl45/p/5135429.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

周排行