【结贴】applyupdates问题**

vagrant

我在一个数据集的“afterapplyupdates”事件下更新另外一个数据集，用的是applyupdates，报错：“正在保存”

vagrant

请帮忙分析下啥原因

atiger

这两个数据集有关系吗？例如定义了主从关系。

如果有主从关系，请问出于啥原因要在一个数据集的afterapplyupdates事件中更新另外一个数据集，代码怎么写的？

vagrant

有主从关系，代码是这样的：procedure TGWGLXX_INFO.DataSetCLB_DataSetAfterApplyUpdates(Sender: TObject; var OwnerData: object);
var
  lReadOnly: Boolean;
  lUnitBizKind: string;
begin
  lUnitBizKind := SYSTEMUTILS.TContextUtils.GetFlowControl(Self.Context).CurrentTask.BizKind;
  with DataSetGWGLXX_DataSet do
  begin
    if SysUtils.SameText(lUnitBizKind, '公文修改申请') then
    begin
      edit;
      FieldByName('FWritePosID').AsString := ProcessPosID;
      Post;
      //ApplyupDates;
    end
    else if SysUtils.SameText(lUnitBizKind, '部门审核') then  //20090216赵常坤
    begin
       lReadOnly := FieldByName('FMeetingCheckPer').ReadOnly;
    if lReadOnly then
      FieldByName('FMeetingCheckPer').ReadOnly := False;
    try
      Edit;
      if StrUtils.AnsiContainsText(FieldByName('FMeetingCheckPer').AsString,ProcessPerName) then
      begin
        FieldByName('FMeetingCheckPer').AsString := FieldByName('FMeetingCheckPer').AsString;
      end
      else
        FieldByName('FMeetingCheckPer').AsString := FieldByName('FMeetingCheckPer').AsString+'  '+ProcessPerName;

    finally
      if lReadOnly then
        FieldByName('FMeetingCheckPer').ReadOnly := lReadOnly;
    end;
      Post;
        ApplyupDates;
   end;
  end;
end;

atiger

主从关系的提交，如果是代码直接执行ApplyupDates 或者 ApplyupDates(true) 或者用数据导航的保存按钮，那么是主从数据集一起提交的。
像你这样的需求，要不就是自己用个按钮来执行保存动作，即处理这两个数据集的字段的值，并执行这两个数据集ApplyupDates(False)，记住带false参数。要不在数据导航的BeforeAction 上判断是否点击的保存按钮，然后实现自己的逻辑。这个可以用“BeforeAction” 在bbs上搜索有许多的说明

vagrant

带上False是什么意思？

zfang

ApplyUpdates(True)方法，是主从关联提交

vagrant

明白，谢谢，结贴