改为两边属性相同
fieldbyname('fkpi').AsFloat := fieldbyname('fact').AsFloat/fieldbyname('plan').AsFloat;

fieldbyname('fkpi').AsInteger:= fieldbyname('fact').AsInteger/fieldbyname('plan').AsInteger;