主题：如何加载每个客户的最新一条订单？

增加一列【标志列】，字符型

Dim mns As List(Of String) = DataTables("订单").GetUniqueValues("", "客户姓名")
DataTables("订单").LoadFilter=""
DataTables("订单").Load()
For Each dr As DataRow In DataTables("订单").DataRows
    dr("标志列")=""
Next
Dim h As DataRow
For Each mn As String In mns
    h = DataTables("订单").Find("客户姓名='" & mn & "'","订单日期 Desc")
    If h IsNot Nothing Then '如果找到的话
        h("标志列")="ok"
    End If
Next
DataTables("订单").LoadFilter="标志列='ok'"
DataTables("订单").Load()