grid控件中的多选问题(100分)

O

oldnew

Unregistered / Unconfirmed
GUEST, unregistred user!
将grid设置为可以多选!
当我将多条纪录多选后
然后我想引用所选择的这些记录中字段名为'name'的数据!

比如我选中了三条记录!
我怎么得到这三个'name'呢?
 
循環唄!
 
用什么东西循环啊?
我是想知道如何引用grid中被selected的记录
 
来自中国程序员网站

DELPHI的TDBGrid控件主要用来处理数据表,它的属性中有一个dgMultiSelect,若此属性设定为TRUE,则可以选中多个记录(可用CTRL+鼠标左键选择多个记录)。对选中的多个记录可以有以下几种处理方式,比较简单的两种是:清除所有的选择记录可用DBGrid1.SelectedRows.Clear语句;删除所有的选择记录可用DBGrid1.SelectedRows.Delete语句。但如果想获得选中的所有记录的其他信息,比如,在单独的一个窗体中显示用户选择的记录的第一个字段的内容(如所有选择的姓名)如何处理呢?这就要使用书签功能了,下面是笔者编写的一个程序中的过程,来将用户选择的多个记录集中显示在另外一个窗体中(笔者使用的是DELPHI4),供参考使用

procedure GetSelectedRecord
(DataSet : TDataSet; FieldName : String;
BookmarkList : TBookmarkList; Strings : TStrings);
//这个过程中的参数分别为:数据表、字段名称、书签、用来保存所选字段内容的
//字符串(用于将内容传递到另一个单独窗体中的TLIST控件中)
var
I: Integer;
bm : TBookMark;
begin
Strings.Clear;
with Dataset do begin
DisableControls;
bm := GetBookMark;
try
//每个选择的记录都有一个书签标志,这就为处理它们提供了条件
for I := 0 to BookmarkList.Count - 1 do begin
Bookmark := BookmarkList[I];
Strings.Add(DataSet.FindField(fieldname).AsString);
end;
finally
GotoBookMark(bm);
FreeBookMark(bm);
EnableControls;
end;
end;
end;

调用举例:
GetSelectedRecord(Table1, `NAME`, DBGrid1.SelectedRows, Form2.ListBox1.Items);

 

if MultiSelect then //如果支持多重選擇
begin
if DBGrid.SelectedRows.Count > 0 then
for i := 0 to DBGrid.SelectedRows.Count - 1 do
begin
GotoBookMark(Pointer(DBGrid.SelectedRows.Items));
Inc(n);
name[n]:=DBGrid.Columns[j].Field.Value;//j为字段名为'name'的列
end;
end;
 
接受答案了.
 
顶部