在dbgrid中选中多条记录，如何通过程序把选中的记录读出来？急！！

Question

多谢！！！！

Answer 1

用dbgrideh吧，比较简单可以实现

Answer 2

顶:
顺便问一下楼主:如何在dbgrid中选中多条记录

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  BookList: TBookList;
  Book: TBookStr;
begin
  // 保存当前记录位置
  Book := ADOTable1.Book;
  try
    // 清空 ListBox1
      ListBox1.Items.Clear;
    // 获得当前所选记录列表
    BookList := DbGrid1.SelectedRows;
    //循环读取
    for I := 0 to BookList.Count - 1 do
    begin
      // 移动书签至
      ADOTable1.Book := BookList[I];
      // 显示要显示的字段
      ListBox1.Items.Add (ADOTable1.FieldByName ('字段名').AsString);
    end;
  finally
    // 回至初始位置
    ADOTable1.Book := Book;
  end;
end;

Answer 4

for I := 0 to dataset.selectedCount - 1 do
  begin
    dataset.gotobook(pointer(dbgrid.selectedrows[i]));
    dosomething;
  end;

Answer 5

只能用shift进行多选，不支持ctrl多选。要是想ctrl也可以多选，还要自己写代码的。