一次删除dbgrid里的多条记录？

Question

delete from table where ...

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to DBGrid1.SelectedRows.Count - 1 do
  begin
  DBGrid1.DataSource.DataSet.Book := DBGrid1.SelectedRows.items[I];
  DBGrid1.DataSource.DataSet.Delete;
  end;
end;

Answer 2

suny_2001的方法已经很好了。哎，为什么你和我的名字这么象？

Answer 3

小鱼儿，给我解决以下吧？我的报表问题？
为何无法在QuickReport中增加和显示aText（aText是一个TQRDBText，显示字段为ID）？ with QuickReport do
begin
                      aText := TQRDBText.Create(QuickReport);
                        //设置显示字段内容
                        aText.Parent := DetailBand1;
                        with aText do
                        begin
                                AutoSize:=False;
                                AutoStretch:=True;
                                Height:=DetailBand1.Height;
                                DataSet:=REPORT.Table1;
                                DataField:='id';   //id为字段名称 
                                Alignment:=taCenter;
                        end; {with aText do}        end;   {with QuickReport do}

Answer 4

TO　lishen(lishen)　:
首先你把  AutoSize:=False;这句话拿掉，还有就是注意那个TABLE有没有打开了。
不然肯定行的。