procedure TMSWageEdit.aqyMSWageEditCalcFields(DataSet: TDataSet);begin inherited; with DataSet do if RecNo =-1 then FieldByName('计算字段').AsInteger := 1 else FieldByName('计算字段').AsInteger := RecNo;end;