Delphi：应用更新时访问嵌套数据集主信息

Question

将更新应用到嵌套数据集时，我可以在提供程序的 BeforeUpdateRecord 事件中访问父数据集信息（例如 MyField.NewValue）吗？

原因：

当我将更新应用于具有嵌套详细信息的 CDS 时，主 PK 由基础查询 (TIBCQuery) 生成并传播到主 CDS。

但新键在详细信息的 BeforeUpdateRecord 中不可见，因为该字段在 AfterUpdateRecord 中更新：

DeltaDS.FieldByName(FieldName).NewValue := SourceDS.FieldByName(FieldName).NewValue) 

并且增量尚未合并。

当调用详细信息时，BeforeUpdateRecord 事件的 DeltaDS 参数看起来仅包含嵌套数据集的信息。

如果我可以执行以下操作，那就太好了：

DeltaDS.ParentDS.FieldByName('FIELDNAME').NewValue.

编辑：

当使用嵌套数据集时，BeforeUpdateRecord 事件被调用两次，一次用于主数据，一次用于详细数据（如果我们两者都有一份记录）。当调用详细信息事件时，有没有办法访问 DeltaDS 中包含的主信息？

此时我们无法访问主 CDS 的数据，因为更改尚未合并。我希望这不会增加更多的混乱。

Answer 1

您可以使用提供程序的 Resolver 查找相应的 TUpdateTree：

function FindDeltaUpdateTree(Tree: TUpdateTree; DeltaDS: TCustomClientDataSet): TUpdateTree;
var
  I: Integer;
begin
  Result := nil;
  if Tree.Delta = DeltaDS then
    Result := Tree
  else
    for I := 0 to Tree.DetailCount - 1 do
    begin
      Result := FindDeltaUpdateTree(Tree.Details[I], DeltaDS);
      if Assigned(Result) then
        Break;
    end;
end;

您可以在 OnBeforeUpdate 处理程序中使用它：

var
  Tree, ParentTree: TUpdateTree;
begin
  if SourceDS = MyDetailDataSet then
  begin
    Tree := FindDeltaUpdateTree(TDataSetProvider(Sender).Resolver.UpdateTree, DeltaDS);
    if Assigned(Tree) then
    begin
      ParentTree := Tree.Parent;
      // here you can use ParentTree.Source (the dataset) and ParentTree.Delta (the delta)
    end;
  end;
end;