在元组列表上使用 Find 的谓词

Question

我有这个Dictionary：

Public TblDic As New Dictionary(Of String, List(Of Tuple(Of Date, Date, Decimal)))

我需要检索在第 2 项上具有最高日期的元组的第 3 项（十进制）。

我可以通过知道日期来检索第三项，但我无法检索到最高日期：

Dim LastDate As Date = Date.ParseExact("31/12/2016", "dd/MM/yyyy",
                                       New CultureInfo("it-IT"), DateTimeStyles.None)
Dim LastRate2 As Decimal = TblDic("Legali").Find(Function(D) D.Item2 = LastDate).Item3

另一种方法是将所有元组放入 DataTable 并使用 DataTable.Select 以这种方式检索十进制字段：

Dim LastRate As Decimal = DT_Rates.Select("EndDate=MAX(EndDate)")(0).Field(Of Decimal)("Rate")

所以，我的问题是：
1) 是否可以在不知道最后日期的情况下使用 List.Find？
2) List.Find 和 DataTable.Select 之间的最佳实践是什么？

Answer 1

您可以使用 Find... 也许？但我认为没有它就足够简单了。

Dim LastRate As Decimal = TblDic.
    SelectMany(Function(k) k.Value).
    OrderByDescending(Function(k) k.Item2).
    First().Item3

SelectMany() 采用许多序列并将它们展平为一个序列。本例中的序列是字典的值，List(Of Tuple(Of Date, Date, Decimal))

OrderByDescending() 按谓词排序展平序列，谓词返回Tuple(Of Date, Date, Decimal) 的Date。这将 all 将所有列表中的Tuple(Of Date, Date, Decimal) 排序，因为它们被展平了

First() 采用按日期降序排列后的第一个 Tuple(Of Date, Date, Decimal)

Item3 返回Tuple(Of Date, Date, Decimal) 的Decimal