如何用C/AL代码实现Bid Price LCY列当前值减前值？存在累加错误

AI 小北

2026-8-19

问题解决：计算每日Bid Price LCY差值存入Daily Return(Offer)

你的代码因使用累加操作（LastDailyReturn += ...）导致结果为总和，而非预期的每日差值。要实现当前值减前一个值的逻辑，需保存上一条记录的Bid Price LCY，遍历每条记录时计算差值并写入目标列。

修正后的代码如下：

var
    LastBidPrice: Decimal;
    TempFundPriceNew: Record "Temp Fund Price New";
begin
    LastBidPrice := 0;
    TempFundPriceNew.RESET;
    TempFundPriceNew.SETCURRENTKEY("Fund No.", Date);
    TempFundPriceNew.SETRANGE(TempFundPriceNew."Fund No.", "Temp Fund Price New"."Fund No.");
    TempFundPriceNew.SETRANGE(TempFundPriceNew.Date, StartDate, "Temp Fund Price New".Date);
    
    IF TempFundPriceNew.FINDFIRST THEN BEGIN
        // 第一条记录无前置数据，日收益设为0（可根据业务需求调整）
        TempFundPriceNew."Daily Return(Offer)" := 0;
        TempFundPriceNew.MODIFY;
        LastBidPrice := TempFundPriceNew."Bid Price LCY";
        
        WHILE TempFundPriceNew.NEXT = 1 DO BEGIN
            // 当前值减前一个值得到日收益
            TempFundPriceNew."Daily Return(Offer)" := TempFundPriceNew."Bid Price LCY" - LastBidPrice;
            TempFundPriceNew.MODIFY;
            // 更新前值为当前值，供下一条计算使用
            LastBidPrice := TempFundPriceNew."Bid Price LCY";
        END;
    END;
end;