Create anonymous type from query

  

Imports System.Collections.Generic
Imports System.Linq
Imports System.Runtime.CompilerServices


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


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 query = From p In people Where p.ID = 1 Select New With {p.FirstName, p.LastName}

    End Sub

End Module

Related examples in the same category

1.	Linq way of doing Object creation
2.	An anonymous type is returned containing the Id, Name and Pay
3.	Create anonymous type in query and convert to array
4.	Calls ToString() on each anonymous object
5.	Get structured data which only accounts for the Make and Color of each item

Create anonymous type from query : Anonymous Object « LINQ « VB.Net

Related examples in the same category