会用dbgirdeh的朋友帮忙看看我这个加checkbox后批量删除总有条记录删除不了

Question

具体的我也说不清楚
程序在renzaijiang.ys168.com 
程序文件夹

Answer 1

我用的EH版本太低的缘故，编译不了你的程序！你在删除前面加上我下面的话试下！应该没有问题的！if adoquery1.State in [dsEdit,dsInsert] then
  adoquery1.Post;

Answer 2

因为最后一条数据没有保存，所以不能删除！
你可以这样
procedure TForm1.Button3Click(Sender: TObject);
begin
  with adoquery1 do
    begin
      if state in [dsEdit] then post;
      sql.Clear;
      sql.Add('delete  from dingdan where check=true');
      execsql;
      active:=false;
      sql.Clear;
      sql.Add('select * from dingdan');
      execsql;
      active:=true;
    end;
end;