主题：请教降序问题

If e.DataCol.Name = "规格" OrElse e.DataCol.Name = "客户" Then
    Dim dr As DataRow
    dr = DataTables("订单明细").Find("[规格] =  '" & e.DataRow("规格") & "' And 客户 = '" & e.DataRow("客户") & "'","日期 DESC")
    If dr IsNot Nothing Then
        e.DataRow("单价") = dr("单价")
    End If
End If

报价单单价想实现从订单明细表提取相同客户、规格，单价显示为最后一次价格，请指教，谢谢！！！

谢谢！！！，我是要做一个报价单，以前的数据都在订单明表里，如果是同一客户，相同的规格，单价和数量是不同的，所以，报价前要知道最后一次价格是多少，现在报价表里提出来的是最老的价格，想要显示最新的单价，请指导，谢谢！！！