EnterPerDataSetBroker.DataSet.Data := TranPerDataSetBroker.DataSet.Data;
if not EnterPerDataSetBroker.DataSet.Active then
EnterPerDataSetBroker.DataSet.Open;
EnterPerDataSetBroker.DataSet.DisableControls;
EnterPerDataSetBroker.DataSet.First;
while not EnterPerDataSetBroker.DataSet.Eof do
begin
EnterPerDataSetBroker.DataSet.Edit;
EnterPerDataSetBroker.DataSet.FieldByName('per_group_id_fk').AsString := FGroupID;//修改关联字段
EnterPerDataSetBroker.DataSet.Next;
end;
EnterPerDataSetBroker.DataSet.EnableControls;
EnterPerDataSetBroker.DataSet.ApplyUpdates;