【搞定】datasetbroke 更新时出错**

liso

procedure TVOUCHER_ENTER.DataSetBroker2BeforeApplyUpdates(DataSet: TDataSet);
var lDataSet1,lDataSet2: TDataSet;
  lf_SumOrigin, lf_sumrmb:float;
begin
  lDataSet1 := DataSetBroker1.DataSet;
  if not lDataSet1.Active then
    lDataSet1.Open;
  lDataSet2 := DataSetBroker2.DataSet;
  if not lDataSet2.Active then
    lDataSet2.Open;

  lf_sumorigin:= 0;
  lf_sumrmb:= 0;
  with lDataSet2 do
  begin
    First;
    while not Eof do
    begin
      lf_sumorigin:= lf_sumorigin + lDataSet2.FieldByName('BalTtl').AsFloat;
      lf_sumrmb:= lf_sumrmb + lDataSet2.FieldByName('BalStdTtl').AsFloat;
      next;
    end;
  end;
  if not(lDataSet1.State in [TDataSetState.dsEdit,TDataSetState.dsInsert]) then
  begin
    TSqlDataSet(lDataSet1 as TDataSet).Edit;
  end;
  lDataSet1.FieldByName('VouSumOrigin').AsFloat := lf_sumorigin;
  lDataSet1.FieldByName('VouSumRmb').AsFloat := lf_sumrmb;
  lDataSet1.Post;
end;
程序执行到最后时报错：运行系统初始化的时候发生异常：正在提交类型：Exception。
什么原因啊

jiahaiminghr

楼主，错误定位在哪一句上？

liso

最后一句，本来我在lDataSet1.Post;这句是
lDataSet.ApplyUpdates;，但是换成lDataSet1.Post;还是报错。
好像跟流程的FlowBrokerAfterFlowOut里面用datasetbroker做更新报的错是一样的

liso

这段代码想实现的功能是，将从表中各明细的金额合计后填充到主表中进行更新。

jiahaiminghr

楼主，应该是你的主表在同一个事务中执行了两次ApplyUpdates导致错误的。不过现有的代码中看不出错误的出处。

你试试把上面的代码写在DataSetBroker1BeforeApplyUpdates事件中。

liso

我试试看

jiahaiminghr

楼主，搞定没有？

jiahaiminghr

楼主，没有问题就结贴了！

liso

有问题的:楼主，应该是你的主表在同一个事务中执行了两次ApplyUpdates导致错误的。不过现有的代码中看不出错误的出处。

你试试把上面的代码写在DataSetBroker1BeforeApplyUpdates事件中。
因为是主从的关系,DataSetBroker1的ApplyUpdates在按保存的时候也触发了,问题是我去掉了lDataSet.ApplyUpdates后,报错信息没了,但是主表更新的数据确没有保存.

liso

不知道主从数据集在保存的时候事件触发的先后顺序是怎么样的ataSetBroker1BeforeApplyUpdates和DataSetBroker2BeforeApplyUpdates之间以及和数据集的提交顺序之间的关系