做个按钮重算一下吧。

Dim dr As DataRow
Dim i As Double
For Each r As DataRow In DataTables("报价统计").DataRows
    With DataTables("报价记录")
        dr = .Find("货号 = \'" & r("货号") & "\'","报价日期 Desc")
        If dr IsNot Nothing Then
            r("最新报价日期") = dr("报价日期")
            r("最新价格") = dr("价格")
            r("最新报价供应商") = dr("供应商")
        End If
        dr = .Find("货号 = \'" & r("货号") & "\'","报价日期 Desc",1)
        If dr IsNot Nothing Then
            r("倒数第二次报价日期") = dr("报价日期")
            r("倒数第二次价格") = dr("价格")
            r("倒数第二次供应商") = dr("供应商")
        End If
        dr = .Find("货号 = \'" & r("货号") & "\'","报价日期 Desc",2)
        If dr IsNot Nothing Then
            r("倒数第三次报价日期") = dr("报价日期")
            r("倒数第三次价格") = dr("价格")
            r("倒数第三次供应商") = dr("供应商")
        End If
        i = .Compute("Min(价格)","货号 = \'" & r("货号") & "\'")
        r("历史最低报价") = i
        If dr IsNot Nothing Then
            dr = .Find("货号 = \'" & r("货号") & "\' and 价格 = " & i,"报价日期 Desc")
            r("最低报价日期") = dr("报价日期")
        End If
    End With
Next