主题：请教降序问题

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

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

既然是查询, 规格 客户 就是查询条件了

 

此主题相关图片如下：qq截图20121104205004.png

 

Dim Kh,Gg As String
Kh=e.Form.Controls("TextBox1").text
Gg=e.Form.Controls("TextBox2").text

Dim Filter1 As String
Filter1="[规格] =  '" & kh & "' And 客户 = '" & Gg  & "'"
Dim dr As DataRow
    dr = DataTables("订单明细").Find(Filter1,"日期 DESC")
    If dr IsNot Nothing Then
       e.Form.Controls("TextBox3").text= dr("单价")
    End If

 

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

 代码应该是没有问题的，已经按照降序排列了。

 楼主如果还遇到什么问题……就上传你的例子看看，可能是数据的问题。