以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  能否跨表从后向前引用数据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=172424)
--  作者：DLW77
--  发布时间：2021/10/12 14:15:00
--  能否跨表从后向前引用数据
老师，您好，我有一表想引用跨表的一个单价，帮助里的代码是引用第一个出现的数据。但我从后面引用第一个出现的数据，这个代码怎么改好？
比如：表里面有两个行数据，是相同的物料  
第一行：2021/09/10  BB01  瓶子   0.05     
第二行：2021/10/12  BB01  瓶子   0.07  
我想取最新的2021/10/12号的单价0.07，像帮助里的代码要怎么改？ 
Select Case e.DataCol.Name
    Case "品名","型号","规格"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("品名") OrElse dr.IsNull("型号") OrElse dr.IsNull("规格") Then
            dr("单价") = Nothing
        Else
            Dim filter As String
            filter = "品名 = \'" & dr("品名") & "\' And 型号 = \'" & dr("型号") & "\' And 规格 = \'" & dr("规格") & "\'"
            pr = DataTables("产品").Find(filter)
            If pr IsNot Nothing Then
                dr("单价") = pr("单价")
            End If
        End If
End Select
--  作者：有点蓝
--  发布时间：2021/10/12 14:24:00
--  

pr = DataTables("产品").Find(filter,"日期 desc")
--  作者：DLW77
--  发布时间：2021/10/13 20:52:00
--  可以了，谢谢老师
可以了，谢谢老师