Imports System
Imports System.Collections.Generic
Imports System.Data
Imports System.Linq
Imports System.Text
Imports System.Globalization
Module Example
Public Sub Main()
Dim ArrayA As Integer() = New Integer() {1, 2, 3, 4, 8}
Dim ArrayB As Integer() = New Integer() {1, 3, 5, 7, 8}
Dim Joined = From QueryA In ArrayA _
Join QueryB In ArrayB _
On QueryA Equals QueryB _
Select QueryA, QueryB
Console.WriteLine("Join Results:")
For Each OutPair In Joined
Console.WriteLine(OutPair.QueryA.ToString() + " - " + _
OutPair.QueryB.ToString())
Next
Dim Joined2 = From QueryA In ArrayA _
From QueryB In ArrayB _
Where QueryA = QueryB _
Select QueryA, QueryB
Console.WriteLine("Two From Results:")
For Each OutPair In Joined2
Console.WriteLine(OutPair.QueryA.ToString() + " - " + _
OutPair.QueryB.ToString())
Next
End Sub
End Module
|