procedure TagentserverRDM.dspGetXingyeAfterUpdateRecord(Sender: TObject;
SourceDS: TDataSet;
DeltaDS: TCustomClientDataSet;
UpdateKind: TUpdateKind);
begin
if UpdateKind =Ukinsert then
begin
deltaDs.Edit;
deltaDs.FieldByName('Postdate').newValue :=spxingyeinsert.Parameters.parambyname('@postdate').value;
deltaDs.FieldByName('id').newValue :=spxingyeinsert.Parameters.parambyname('@return_value').value;
deltaDs.post;
end;
end;
spxingyeinsert.Parameters.parambyname('@return_value').value;
是返回自增id的值,现在想把它deltaDs.FieldByName('id').newValue :=spxingyeinsert.Parameters.parambyname('@return_value').value;
碰到的问题是deltaDs.FieldByName('id').newValue 是无法修改的,这是显然的,有没有什么办法修改id的属性,让他既是自增型,在这时候也可以修改,拜托大家了