双击QUERY 加入所有字段,再新增加一个字段,取名为xj,类型设置为float 在QUERY的ONCalcFields事件写入 procedure TForm1.ADOQuery1CalcFields(DataSet: TDataSet); begin with adoquery1 do fieldbyname('xj').AsFloat:=fieldbyname('sl').AsFloat*fieldbyname('dj').AsFloat; end;
----------------------------------------------