将两个集合组合为单个分层集合。 联接运算基于匹配的键。

Group Join element [As type] In collection _
  On key1 Equals key2 [ And key3 Equals key4 [... ] ] _
  Into expressionList

部件

备注

Group Join 子句基于要联接的集合中的匹配键值组合两个集合。 产生的集合可以包含一个如下所述的成员：该成员引用由第二个集合中的元素组成的集合，这些元素与第一个集合中的键值相匹配。 您还可以指定要应用到第二个集合中的分组元素的聚合函数。 有关聚合函数的信息，请参见 Aggregate 子句 (Visual Basic)。

例如，请考虑一个经理集合和一个雇员集合。 这两个集合的元素都具有一个 ManagerID 属性，用于标识向特定经理汇报的雇员。 联接运算的结果将包含具有匹配 ManagerID 值的每个经理和雇员所对应的结果。 Group Join 运算的结果将包含完整的经理列表。 每个经理结果都将包含一个成员，该成员引用与特定经理匹配的雇员的列表。

Group Join 运算产生的集合可以包含来自 From 子句中标识的集合以及 Group Join 子句的 Into 子句中标识的表达式的值的任意组合。 有关 Into 子句的有效表达式的更多信息，请参见 Aggregate 子句 (Visual Basic)。

Group Join 运算将返回 Group Join 运算符左侧标识的集合中的所有结果。 即使要联接的集合中没有匹配项，也是如此。 这与 SQL 中的 LEFT OUTER JOIN 类似。

可以使用 Join 子句将两个集合组合为单个集合。 这等效于 SQL 中的 INNER JOIN。

示例

下面的代码示例使用 Group Join 子句联接两个集合。

Dim customerList = From cust In customers
                   Group Join ord In orders On
                   cust.CustomerID Equals ord.CustomerID
                   Into CustomerOrders = Group,
                        OrderTotal = Sum(ord.Total)
                   Select cust.CompanyName, cust.CustomerID,
                          CustomerOrders, OrderTotal

For Each customer In customerList
  Console.WriteLine(customer.CompanyName &
                    " (" & customer.OrderTotal & ")")

  For Each order In customer.CustomerOrders
    Console.WriteLine(vbTab & order.OrderID & ": " & order.Total)
  Next
Next