主题：如何筛选订单中每个客户的最后个记录

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

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

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

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