主题：[原创] 一个数据表中，如何求到除自己之外的最大数值

For i As Integer = 0 To tb.Rows.Count - 1
    Dim r As Row = tb.Rows(i)
        Dim max2 As Double = dt2.Compute("max(单价)","物料代码 ='" & r("物料代码") & "'")
    r("最大单价") = max2

next

 

因为最近物料上涨，所以单价得到的数据都是自己行的单价！如何得到除自己行之外的最大值

Dim max2 As Double = dt2.Compute("max(单价)","物料代码 ='" & r("物料代码") & "' and _Identify <> " & r("_Identify"))

老师，如何得到最近单价

Dim fdr As DataRow = dt2.Find("物料代码 ='" & r("物料代码") & "'", "日期 desc")

If fdr Isnot Nothing Then

    msgbox(fdr("单价"))

End If

http://www.foxtable.com/webhelp/scr/0396.htm