带有 Where 子句的 VB.NET LINQ To DataTable 选择

【问题标题】：VB.NET LINQ To DataTable Select with Where Clause带有 Where 子句的 VB.NET LINQ To DataTable 选择
【发布时间】：2016-04-14 18:45:33
【问题描述】：

这是我存储在名为 dt 的数据表变量中的数据表：

Dim dt As New DataTable
+---------+--------+---------------+
| Carrier | AVGTAT |     Name      |
+---------+--------+---------------+
| ABCD    |   2078 | Term Check    |
| ABCD    |      0 | AdHoc         |
| ABCD    |  26406 | Cash on Term  |
| REWS    |   7358 | Failed Bill   |
| ZELT    |  11585 | BL150         |

我需要使用基于 Where Carrier = "x" and Name = "X" 的 LINQ to DataTable 获取 AVGTAT 列的值

我怎样才能做到这一点？

谢谢！

【问题讨论】：

标签： vb.net linq datatable

【解决方案1】：

这里是 C# 版本。

var avg = (from t1 in dt.AsEnumerable()
                select new
                {
                    Carrier = t1.Field<string>("Carrier"),
                    Name = t1.Field<string>("Name"),
                    Avg = t1.Field<int>("AVGTAT")

                }).Where(s => s.Carrier == "X" && s.Name == "X")
                                                      .Select(v=>v.Avg).FirstOrDefault();

还有VB.NET版本

Dim avg = dt.AsEnumerable().[Select](Function(x) New With {
       Key .Carrier = x.Field(Of String)("Carrier"),
       Key .Name = x.Field(Of String)("Name"),
       Key .Avg = x.Field(Of Int32)("Level")
   }).Where(Function(s) s.Carrier = "X" AndAlso s.Name = "X")
                                            .[Select](Function(h) h.Avg).FirstOrDefault()

【讨论】：