主题：[求助]筛选出同一产品不同雇员的最后一条记录

加载最后一条数据:

Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Filter ="[产品] = '" & Value(0) & "'"
    Case 1
        Filter ="[产品] = '" & Value(0) & "' And [客户] = '" & Value(1) & "'"
End Select
DataTables("订单").LoadFilter = Filter
DataTables("订单").LoadTop = 1
DataTables("订单").LoadOrder = "日期 Desc"
DataTables("订单").Load()