主题：最近几次价格记录,报价日期

请教各位老师, 怎样得到最近几次价格记录,同时加上报价日期和供应商
另外,要统计历史最低价格要怎么设计,谢谢!

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:最近几次价格统计.foxdb

做个按钮重算一下吧。

 

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

 

谢谢CZY老师！