Join two object lists together

  


Imports System.Reflection
Imports System


Public Class Role
    Public ID As Integer
    Public RoleDescription As String
End Class

Public Class Person
    Public ID As Integer
    Public IDRole As Integer
    Public LastName As String
    Public FirstName As String
End Class

Public Class Salary
    Public IDPerson As Integer
    Public Year As Integer
    Public SalaryYear As Double
End Class

Module Module1

    Sub Main()
        Dim people As New List(Of Person)(New Person() { _
            New Person With {.ID = 1, .IDRole = 1, .LastName = "A", .FirstName = "Brad"}, _
            New Person With {.ID = 2, .IDRole = 2, .LastName = "G", .FirstName = "Tom"} _
        })

        Dim roles As New List(Of Role)(New Role() { _
            New Role With {.ID = 1, .RoleDescription = "Manager"}, _
            New Role With {.ID = 2, .RoleDescription = "Developer"} _
        })


        Dim salaries As New List(Of Salary)(New Salary() { _
                New Salary With {.IDPerson = 1, .Year = 2004, .SalaryYear = 10000.0}, _
                New Salary With {.IDPerson = 1, .Year = 2005, .SalaryYear = 15000.0}, _
                New Salary With {.IDPerson = 2, .Year = 2005, .SalaryYear = 15000.0} _
        })

        Dim query = From p In people, r In roles _
            Where p.ID = 1 AndAlso r.ID = p.IDRole _
            Select New With {p.FirstName, p.LastName, r.RoleDescription}

    End Sub

End Module

Related examples in the same category

1.	Convert Linq result to Array
2.	Convert Linq result to List
3.	Linq Over Array
4.	Linq Over int Array
5.	A select statement against object list
6.	Filter by name length
7.	Find the cars that are going less than 55 mph, and order by descending PetName
8.	Create a query expression
9.	Convert query to a list of string
10.	Get all cars. Similar to Select * in SQL
11.	Get differences
12.	Get only the pet names
13.	Join Person and Salaries lists to get the max and min salary
14.	Reflector Linq result
15.	Using where clause to check the first name of a Persion
16.	Select by a Property
17.	Select by object id
18.	Query String Array With Operators

Join two object lists together : Query « LINQ « VB.Net

Related examples in the same category