|
Este artigo foi traduzido por máquina. Coloque o ponteiro do mouse sobre as frases do artigo para ver o texto original. Mais informações.
|
Tradução
Original
|
Cláusula Join Group (Visual Basic)
Group Join element [As type] In collection _
On key1 Equals key2 [ And key3 Equals key4 [... ] ] _
Into expressionList
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