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

Dim mns As List(Of String) = DataTables("订单").SQLGetValues("", "客户姓名")

Dim idxs As String = ""
For Each mn As String In mns
    Dim dr As DataRow = DataTables("订单").SQLFind("客户姓名='" & mn & "'","订单日期 Desc, [_Identify] desc")
    idxs &= dr("_Identify") & ","
Next

DataTables("订单").LoadFilter="[_Identify] in (" & idxs.TrimEnd(",") & ")"
DataTables("订单").Load()