以文本方式查看主题

-  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=116118)
--  作者：malavazos
--  发布时间：2018/3/20 10:58:00
--  如何筛选订单中每个客户的最后个记录

下述代码如何更改，如果每个客户的订单不止一条时，筛选出最后一条记录。

Dim drs As List(Of DataRow)
drs = DataTables("订单").Select("[产品] = \'PD01\' And [日期]= #1/4/1999#","数量 DESC")
For Each dr As Datarow In drs
    Output.show(dr("客户"))
Next
--  作者：有点甜
--  发布时间：2018/3/20 11:15:00
--  

先查询所有客户，然后查询客户数据，参考

 

For Each kh As String In DataTables("订单").GetValues("客户")
    Dim fdr As DataRow = DataTables("订单").find("客户 = \'" & kh & "\'","日期 DESC")
    If fdr IsNot Nothing Then
        Output.show(fdr("订单号"))
    End If
Next