在DBGrid中选中多行数据后，如何得到选中行中某一列的数据！有例子更好！

Question

在DELPHI的HELP里应该有详细的说明的。
你应该仔细地看看啊。

Answer 1

用字段名该可以得到的。
DBGrid1.DataSource.DataSet.GotoBook();
DBGrid1.DataSource.DataSet.fieldbyname(字段名).value;

Answer 2

for i := 0 to dbgAutoList.SelectedRows.Count - 1 do
begin
  qryAutoList.GotoBook(pointer(dbgAutoList.SelectedRows.Items[i]));
  ……
end;

Answer 3

TO：chinaway(溪之) and  cszk4()
一列中也有多行呀！有多个数据，如何得到？谢谢！

Answer 4

procedure GetSelectedRecord
(DataSet : TDataSet; FieldName : String;
BookList : TBookList; Strings : TStrings);
//这个过程中的参数分别为：数据表、字段名称、
书签、用来保存所选字段内容的
//字符串（用于将内容传递到另
一个单独窗体中的TLIST控件中）
var
I: Integer;
bm : TBookMark;
begin
Strings.Clear;
with Dataset do begin
DisableControls;
bm := GetBookMark;
try
//每个选择的记录都有一个书签标志，
这就为处理它们提供了条件
for I := 0 to BookList.Count - 1 do begin
Book := BookList[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

Answer 5

告诉你在HELP里面有，你就是不看。
下面的例子是从HELP里面COPY的。
你自己研究吧。
The following example copies the selected rows in a db grid to a list box.procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
  if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;
end;