在一个标准数据集(A)的aftercommit事件中编写提交另一个数据集(B),代码:
Aaftercommit(DataSet: TDataSet);
var
str:string;
begin
with B do
begin
str:=TSelectSystemUnit.GetWorkcontent(B.fieldbyname('guid').asstring);
if str<>fieldbyname('workcontent').asstring then
begin
edit;//另一个地方,这句也报错
fieldbyname('workcontent').asstring:=str;
applyUpdates;//这句报错
end;
end;
end