在 VB.NET 中使用 LINQ 组连接

Question

我试图弄清楚如何在 VB.NET 下的 LINQ 查询中使用组联接。出于某种原因，我似乎在语法上找到的每个示例都是完全错误的！至少，我的编译器一直这么告诉我。我在这里到底做错了什么？

这是一个简单的示例，我想将订单与其订单项目连接起来，以便最终得到一个包含按其 orderId 分组在一起的订单项目集合的类型：

Dim groupedOrders = (From o In orders
                     Group Join i In orderItems On o.OrderId Equals a.OrderId Into myOrders
                     Select o.OrderId, myOrders).ToList()

我当前在此示例中遇到的是 ' myOrders 组我正在创建错误：

在此上下文中无法访问方法“myOrders”的定义。

Answer 1

在 VB 中，Into 别名需要是“Group”而不是 myOrders。使用 Northwind，您可以按如下方式声明您的查询：

Dim groupedOrders = 
   From o On Orders
   Group Join od in Order_Details On o.OrderID Equals od.OrderID Into Group
   Select o.OrderID, Details = Group

如果您想将组别名为其他名称，您可以使用：

Dim groupedOrders = 
   From o On Orders
   Group Join od in Order_Details On o.OrderID Equals od.OrderID Into GroupedDetails = Group
   Select o.OrderID, GroupedDetails

也就是说，如果您的订单和 orderItems 来自数据库提供程序，您可以只使用自然关联而不是根本需要连接：

Dim groupedOrders = 
   From o In Orders
   Select o.OrderID, Details = o.Order_Details

此外，如果您只需要按外键分组，则不需要父表：

Dim groupedOrders = 
   From od In Order_Details
   Group od By Key = od.OrderID Into Group
   select Key, Group

Answer 2

你很接近了。您只需将 myOrders 指定为 Group：

Dim groupedOrders = (From o In orders
                     Group Join i In orderItems On o.OrderId Equals a.OrderId
                     Into myOrders = Group
                     Select o.OrderId, myOrders).ToList()

您可以从此 MSDN 页面查看类似的示例，包括如何获取组的 Count： Visual Basic 中的 LINQ 简介。

Answer 3

我喜欢包含 LINQ 查询的另一个示例，如果不是为了回答这个问题，那么只是为了保留我将来可以参考的副本：

    Dim result As List(Of Reception_Users)

    result = (From recept In MyBase.QueryGlobalStatic(Of HACRECEP)(Function(x) True)
                  Join sys In MyBase.QueryGlobalStatic(Of SYSESSIO)(Function(x) True) On recept.IdLocking Equals sys.Id
                  Join SYUSRG In MyBase.QueryGlobalStatic(Of SYUser)(Function(x) True) On sys.cle_user Equals SYUSRG.Id
                  Group By SYUSRG.Code, SYUSRG.Nom, SYUSRG.Prenom
                      Into Groupuser = Group
                  Select New Reception_Users With
                      {
                      .CodeUsager = Code,
                      .Nom = Nom,
                      .Prenom = Prenom
                      }).ToList() 

其中 MyBase.QueryGlobalStatic() 是一个来自我的上下文的函数，按顺序允许我将这种代码放在任何地方，而不需要检查连接或身份验证数据（除其他外）。等价的将是这样的：

            result = (From recept In dbContext.HACRECEPs
                  Join sys In dbContext.SYSESSIOs On recept.IdLocking Equals sys.Id
                  Join SYUSRG In dbContext.SYUsers On sys.cle_user Equals SYUSRG.Id
                  Group By SYUSRG.Code, SYUSRG.Nom, SYUSRG.Prenom
                      Into Groupuser = Group
                  Select New Reception_Users With
                      {
                      .CodeUsager = Code,
                      .Nom = Nom,
                      .Prenom = Prenom
                      }).ToList()