Código Delphi [-] procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet); begin // varNroID: variable que contiene el ID del cliente actual ADOTable1.FieldByName('ID').AsInteger:= varNroID; end;
procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet); begin // varNroID: variable que contiene el ID del cliente actual ADOTable1.FieldByName('ID').AsInteger:= varNroID; end;