在delphi中我用DBGrid选择多条记录,如何一次把选择的多条记录删掉

Question

如题.

Answer 1

我是说  yimoo(剑锋) 提供的方法好像不行

Answer 2

你得到的是什么错误提示呢？
我测试过了！是ADOConnection＋ADOTable＋DataSource＋DBGrid！
绝对是可行的！说出一个不行的理由先！

Answer 3

procedure TForm1.btnDoSumClick(Sender: TObject);
var
  i: Integer;
begin
  if DBGrid1.SelectedRows.Count > 0 then
  begin
    with DBGrid1.DataSource.DataSet do
    begin
      for i := 0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBook(Pointer(DBGrid1.SelectedRows.Items[i]));
        self.ADOQuery1.Delete;//删除记录
      end;
    end;
  end
end;

Answer 4

yimoo(剑锋)  我有一个文件,不如你拿去试试吧.留下邮箱地址.

Answer 5

回复人： pengxuan(追梦人) ( ) 信誉：100  2004-01-31 16:24:00  得分:0 
 
 
  yimoo(剑锋)  我有一个文件,不如你拿去试试吧.留下邮箱地址.
  
 
发过来我看看吧！

Answer 6

yimoo(剑锋)  我已经给你发过去了.

Answer 7

我的这段程序是这样的.procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('删除前记录数:'+IntToStr(ADOQuery1.RecordCount));
  try
    DBGrid1.SelectedRows.Delete;
  except  end;
  ADOQuery1.Close;
  ADOQuery1.Open;
  ShowMessage('删除后记录数:'+IntToStr(ADOQuery1.RecordCount));
end;