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