【搞定】数据集post方法以及AfterApplyUpdates事件的Close＋Open方法无效**

melodyqi

第一个问题：申请修改功能，如果不注释掉Button1Click里的dsbMain.DataSet.Post;则，修改一条数据后点击其他记录，虽然此时没滚动，但再点击Button就报告数据集不在编辑状态了。注释直接ApplyUpdates不会报错。为什么呢？

第二个问题：修改一条数据后点系统自带的导航条提交数据，suiran 。虽然在dsbMainAfterApplyUpdates写了Close＋Open，但是无效，必须点Button1 才有效，为啥呢

procedure TMainForm.Button1Click(Sender: TObject);
begin
  //dsbMain.DataSet.Post;
  dsbMain.DataSet.ApplyUpdates;
  dsbMain.DataSet.Close;
  dsbMain.DataSet.Open;
end;

melodyqi

自己顶。。。。。。

atiger

这个可以参考delphi的dataset帮助，哪些动作应该在哪个事件上做处理，例如不能在beforeApplyUpdates 去修改字段的值，然后提交到数据库上。

melodyqi

上面的方法和我提的问题关系不大吧，我上面传的附件已经可以重现我的问题，请给我一个准确的答复

melodyqi

自己顶一下

atiger

第一个问题：申请修改功能，如果不注释掉Button1Click里的dsbMain.DataSet.Post;则，修改一条数据后点击其他记录，虽然此时没滚动，
没有滚动？不可能吧，已经点击到其他的记录上还没有滚动，那啥时怎么叫点击到其他的记录，怎么看出来已经移动到其他记录上的

但再点击Button就报告数据集不在编辑状态了。注释直接ApplyUpdates不会报错。为什么呢？
因为记录已经滚动了，已经做了数据集post动作了，那么此时数据集的状态已经从dsEdit 或者dsInsert 修改 dsBrowse 再去post，就会弹出 DataSet not in edit or insert mode，而不是因为ApplyUpdates这个动作提示出来的，

atiger

第二个问题：修改一条数据后点系统自带的导航条提交数据，suiran 。虽然在dsbMainAfterApplyUpdates写了Close＋Open，但是无效，必须点Button1 才有效，为啥呢
当然了，你在dsbMain  的 AfterApplyUpdates 事件上，对dsbMain数据集进行  close、opne怎么可以呢，整个提交动作还没有真正完成，在button 当然可以了，触发的时机就不是一个

这两点，你都可以问问高工，他对这个已经滚瓜烂熟了。

ly_Ksec

其实你跟踪一下字段值就知道了
Dialogs.showmessage(DataSetBroker1.Info.DataSetByID('MainSqlDataSet').FieldByName('CODE_NO').AsString);
  DataSetBroker1.DataSet.Close;
  DataSetBroker1.DataSet.Open;
  Dialogs.showmessage(DataSetBroker1.Info.DataSetByID('MainSqlDataSet').FieldByName('CODE_NO').AsString);
这两次取出的值是不一样的，前面的是提交后的数据，后面的是未提交前的数据，至于为什么我也很想知道，其实数据已经录入了，当2次刷新的时候该数据就出来的，会不会和存储的机制有关系

melodyqi

第一个问题：请好好看看我们的例子，我们控制了不让滚动
第二个问题：对于Bug的确认高工也无能为力

lixy

第一个问题：x3这部分的处理类似delphi的clintdataset，我摘了一段代码：
   function TCustomClientDataSet.ApplyUpdates(MaxErrors: Integer): Integer;
var
  RootDataset: TCustomClientDataset;
begin
  CheckBrowseMode;
  RootDataset := Self;
  while RootDataset.FParentDataSet <> nil do
    RootDataset := RootDataset.FParentDataset;
  with RootDataset do
    if ChangeCount = 0 then
      Result := 0 else
      Reconcile(DoApplyUpdates(Delta, MaxErrors, Result));
end;


procedure TDataSet.CheckBrowseMode;
begin
  CheckActive;
  DataEvent(deCheckBrowseMode, 0);
  case State of
    dsEdit, dsInsert:
      begin
        UpdateRecord;
        if Modified then Post else Cancel;
      end;
    dsSetKey:
      Post;
  end;
end;

ApplyUpdates 会自动检测状态，不在编辑状态，直接cancel
POST不会，所以报错！