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

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