共用方式為


Join 子句 (Visual Basic)

將兩個集合合併成單一集合。 聯結作業會根據相符索引鍵並使用 Equals 運算子。

語法

Join element In collection _
  [ joinClause _ ]
  [ groupJoinClause ... _ ]
On key1 Equals key2 [ And key3 Equals key4 [... ]

組件

element 必要。 聯結集合的控制變數。

collection
必要。 要與 Join 運算子左邊所識別集合合併的集合。 Join 子句可以巢狀於另一個 Join 子句或 Group Join 子句中。

joinClause
選擇性。 用以進一步精簡查詢的其他一或多個 Join 子句。

groupJoinClause
選擇性。 用以進一步精簡查詢的其他一或多個 Group Join 子句。

key1 Equals key2
必要。 識別聯結集合的索引鍵。 您必須使用 Equals 運算子來比較聯結集合中的索引鍵。 您可以使用 And 運算子以識別多個索引鍵來合併聯結條件。 key1 必須來自 Join 運算子左邊的集合。 key2 必須來自 Join 運算子右邊的集合。

聯結條件中所使用索引鍵可以是包含集合中多個項目的運算式。 不過,每個索引鍵運算式只能包含其個別集合中的項目。

備註

Join 子句會根據聯結集合中的相符索引鍵值來合併兩個集合。 產生的集合可以包含來自 Join 運算子左邊所識別集合與 Join 子句中所識別集合的任何值組合。 查詢只會傳回符合 Equals 運算子所指定條件的結果。 這相當於 SQL 中的 INNER JOIN

您可以在查詢中使用多個 Join 子句,將兩個或多個集合聯結成單一集合。

您可以執行隱含聯結來合併集合,而不使用 Join 子句。 若要這樣做,請在您的 From 子句中包含多個 In 子句,並指定 Where 子句,以識別您要用於聯結的索引鍵。

您可以使用 Group Join 子句,將集合合併成單一階層式集合。 這類似於 SQL 中的 LEFT OUTER JOIN

範例 1

下列程式碼範例會執行隱含聯結,將客戶清單與其訂單合併。

Dim customerIDs() = {"ALFKI", "VICTE", "BLAUS", "TRAIH"}

Dim customerList = From cust In customers, custID In customerIDs
                   Where cust.CustomerID = custID
                   Select cust.CompanyName

For Each companyName In customerList
    Console.WriteLine(companyName)
Next

範例 2

下列程式碼範例會使用 Join 子句來聯結兩個集合。

Imports System.Diagnostics

Public Class JoinSample

    Public Sub ListProcesses()
        Dim processDescriptions As New List(Of ProcessDescription)
        processDescriptions.Add(New ProcessDescription With {
                                    .ProcessName = "explorer",
                                    .Description = "Windows Explorer"})
        processDescriptions.Add(New ProcessDescription With {
                                    .ProcessName = "winlogon",
                                    .Description = "Windows Logon"})
        processDescriptions.Add(New ProcessDescription With {
                                    .ProcessName = "cmd",
                                    .Description = "Command Window"})
        processDescriptions.Add(New ProcessDescription With {
                                    .ProcessName = "iexplore",
                                    .Description = "Internet Explorer"})

        Dim processes = From proc In Process.GetProcesses
                        Join desc In processDescriptions
                          On proc.ProcessName Equals desc.ProcessName
                        Select proc.ProcessName, proc.Id, desc.Description

        For Each proc In processes
            Console.WriteLine("{0} ({1}), {2}",
                              proc.ProcessName, proc.Id, proc.Description)
        Next
    End Sub

End Class

Public Class ProcessDescription
    Public ProcessName As String
    Public Description As String
End Class

此範例會產生類似如下的輸出:

winlogon (968), Windows Logon

explorer (2424), File Explorer

cmd (5136), Command Window

範例 3

下列程式碼範例會對兩個索引鍵資料行使用 Join 子句來聯結兩個集合。

Imports System.Diagnostics

Public Class JoinSample2

    Public Sub ListProcesses()
        Dim processDescriptions As New List(Of ProcessDescription2)

        ' 8 = Normal priority, 13 = High priority
        processDescriptions.Add(New ProcessDescription2 With {
                                    .ProcessName = "explorer",
                                    .Description = "Windows Explorer",
                                    .Priority = 8})
        processDescriptions.Add(New ProcessDescription2 With {
                                    .ProcessName = "winlogon",
                                    .Description = "Windows Logon",
                                    .Priority = 13})
        processDescriptions.Add(New ProcessDescription2 With {
                                    .ProcessName = "cmd",
                                    .Description = "Command Window",
                                    .Priority = 8})
        processDescriptions.Add(New ProcessDescription2 With {
                                    .ProcessName = "iexplore",
                                    .Description = "Internet Explorer",
                                    .Priority = 8})

        Dim processes = From proc In Process.GetProcesses
                        Join desc In processDescriptions
                          On proc.ProcessName Equals desc.ProcessName And
                             proc.BasePriority Equals desc.Priority
                        Select proc.ProcessName, proc.Id, desc.Description,
                               desc.Priority

        For Each proc In processes
            Console.WriteLine("{0} ({1}), {2}, Priority = {3}",
                              proc.ProcessName,
                              proc.Id,
                              proc.Description,
                              proc.Priority)
        Next
    End Sub

End Class

Public Class ProcessDescription2
    Public ProcessName As String
    Public Description As String
    Public Priority As Integer
End Class

此範例會產生類似如下的輸出:

winlogon (968), Windows Logon, Priority = 13

cmd (700), Command Window, Priority = 8

explorer (2424), File Explorer, Priority = 8

另請參閱