[问题]TDataNavigator的新增复制问题**

海浪

TDataNavigator的新增复制,如果用弹出窗体编辑数据,取消时,DataSet.Cancel,会再次触发数据集的OnNewRecord事件.

alang

你的代码是怎么写的呢？

海浪

一个非常简单的写法：在数据集的OnNewRecord事件里弹出一个编辑窗体，在窗体关闭时取消数据集的更新．

atiger

没有能重现，是这样做的吗？如果不是，请明示
procedure TMainForm.DataSetBroker1NewRecord(DataSet: TDataSet);
var
  lForm:TCT1;
begin
    lForm :=TCT1.Create(Self.Context);  //得到窗体B的实例
    try
      lForm.Showmodal;
    finally
      lForm.Free;
    end;
end;
procedure TCT1.BizFormClose(Sender: TObject; var Action: TCloseAction);
begin
  DataSetBroker1.DataSet.Cancel;
end;

海浪

在信息层做:在数据集的NewRecord事件里下代码
procedure TYWXX1.DataSetBZSJJ1NewRecord(DataSet: TDataSet);
begin
  with TCT1.Create(self.Context) do
  begin
    try
      if ShowModal <> Business.Forms.Controls.mrOK then
        DataSetBZSJJ1.Cancel;
    finally
      Free;
    end;
  end;
end;

附测试包:

atiger

楼主，不会吧，我把你的资源包导入进去了，取消时,DataSet.Cancel,不会触发数据集的OnNewRecord事件.

我在2277上测试过了

shanshengsheng

”新增复制“，注意是 “新增复制”

atiger

哦，我好像没有注意到这点，抱歉。上午机器有点问题，回头我再仔细看一下，然后根贴告知

atiger

搂住，确实有你说的现象，已经做为缺陷提交，现在新增和插入是正常的，新增复制和插入复制都不正常。

shanshengsheng

估计又要说新版本解决了，
劝楼主自觉升级吧