【结贴】删除问题**

vagrant

我用的是
delete;
applyupdates;
这两条语句删除数据的，但当我点击删除的时候不是删除我指定的那条数据，而是一起生产两条数据。帮忙分析下

zfang

没有太清楚楼主的问题。请详细描述一下。最好贴个图看看

vagrant

一起删除两条数据

vagrant

也就是我点删除按钮的时候他一起给我两条数据删除了，我只想删除一条

zfang

你上面的代码用的是数据集的delete吗？

每次删除都是如此吗？还是仅仅删除这个数据的时候同时删掉两条？

你可以尝试用数据导航的删除按钮不用代码删除试试

vagrant

我是用据导航的删除按钮，但代码要作控制

zfang

那你是说你用的数据导航的删除按钮进行删除，然后你代码中又执行了dataset.delete吗？
那肯定删掉两条了，相当于是删除执行了两次。

要对数据导航的某个动作做一些自己的逻辑，需要你自己去接管一下这个事件（beforeAction或者afteraction）

vagrant

我是在beforeAction下作接管的，代码如下
procedure TMAINFORM.DataNavigator2BeforeAction(Sender: TObject; var Accept: Boolean);
begin
  case TBizDataSetAction(Sender).ID of
    BizActnConsts.ActionDataSetAppend :
    begin
      With InfoBroker.Info.DataSetByID ('KHJBXX') do
      begin
        if not active then open;
          Append;
      end;
    end;
    BizActnConsts.ActionDataSetDelete :
    begin
      With InfoBroker.Info.DataSetByID ('KHJBXX') do
      begin
        if not active then open;
        if FieldByName('FSign').AsInteger = 1 then
        begin
          if jsdialogs.ConfirmBox('该单据已经生效，是否真的要删除','提示',1)=true then
          begin
            delete;
            applyupdates;
          end
          else
            accept :=false;
        end
        else
        begin
          if jsdialogs.ConfirmBox('是否真的要删除','提示',Business.Forms.Controls.mrOk)=true then
          begin
            //accept := true;
            //applyupdates;
            delete;
            applyupdates;
          end
          else
            accept :=false;
        end;
       end;
    end;
  end;
end;

zfang

你代码中执行delete语句后，加一个accept:=false试试。

vagrant

问题已解决，谢谢！