So funktioniert die vorrübergehende Abschaltung! Allerdings musst du auch das Objekt für das OnChange angeben, also:
Delphi-Quellcode:
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
var
Tmp: TNotifyEvent;
begin
if Table1.SelectedField = soundso then
with Table1.FieldByName('sal1') do
begin
Tmp := OnChange;
OnChange := nil;
Value := Table1.FieldValues['salary'] * 1.16;
OnChange := Tmp;
end
else
with Table1.FieldByName('sal2') do
begin
Tmp := OnChange;
OnChange := nil;
Value := Table1.FieldValues['salary'] / 1.16;
OnChange := Tmp;
end;
end;
P.S.: Bitte benutz die Delphi-Tags!