LINQ Join - VB.NET | C# Online Compiler

LINQ Join - VB.NET by tutorialsteacher

Imports System
Imports System.Linq
Imports System.Collections.Generic

				
Public Module Module1
	Public Sub Main()
		Dim studentList = New List(Of Student) From {
			New Student() With {.StudentID = 1, .StudentName = "John", .Age = 13, .StandardID = 1},
			New Student() With {.StudentID = 2, .StudentName = "Moin", .Age = 21, .StandardID = 1},
			New Student() With {.StudentID = 3, .StudentName = "Bill", .Age = 18, .StandardID = 2},
			New Student() With {.StudentID = 4, .StudentName = "Ram", .Age = 20, .StandardID = 2},
			New Student() With {.StudentID = 5, .StudentName = "Ron", .Age = 15}
		}
		
		Dim standardList = New List(Of Standard) From {
			New Standard() With {.StandardID = 1, .StandardName = "Standard 1"},
			New Standard() With {.StandardID = 2, .StandardName = "Standard 2"},
			New Standard() With {.StandardID = 3, .StandardName = "Standard 3"}			
		}


		Dim joinResult = studentList.Join(standardList, 
                                    Function(s) s.StandardID, 
                                    Function(std) std.StandardID, 
                                    Function(s, std) New With 
                                    {
                                        .StudentName = s.StudentName, 
                                        .StandardName = std.StandardName
                                    })

			
		For Each stud In joinResult
			Console.WriteLine("{0} - {1}", stud.StudentName, stud.StandardName)
		Next
		
	End Sub
End Module
	
	Public Class Student
		Private _studentID As integer
		Private _studentName As string
		Private _age As integer
		Private _standardID As integer
		
		Property StudentID() As integer
			Get
				Return _studentID
        	End Get
			Set(ByVal Value As integer)
				_studentID = Value
        	End Set
		End Property
		
		Property StudentName() As string
			Get
				Return _studentName
        	End Get
			Set(ByVal Value As string)
				_studentName = Value
        	End Set
		End Property
		
		Property Age() As integer
			Get
				Return _age
        	End Get
			Set(ByVal Value As integer)
				_age = Value
        	End Set
		End Property
		
	Property StandardId() As integer
			Get
				Return _standardID
        	End Get
			Set(ByVal Value As integer)
				_standardID = Value
        	End Set
		End Property
	End Class

Public Class Standard
	Private _standardID As integer
	Private _standardName As string
		
		
		Property StandardID() As integer
			Get
				Return _standardID
        	End Get
			Set(ByVal Value As integer)
				_standardID = Value
        	End Set
		End Property
		
		Property StandardName() As string
			Get
				Return _standardName
        	End Get
			Set(ByVal Value As string)
				_standardName = Value
        	End Set
		End Property
		
	End Class

​x
 
Imports System
Imports System.Linq
Imports System.Collections.Generic
​
                
Public Module Module1
    Public Sub Main()
        Dim studentList = New List(Of Student) From {
            New Student() With {.StudentID = 1, .StudentName = "John", .Age = 13, .StandardID = 1},
            New Student() With {.StudentID = 2, .StudentName = "Moin", .Age = 21, .StandardID = 1},
            New Student() With {.StudentID = 3, .StudentName = "Bill", .Age = 18, .StandardID = 2},
            New Student() With {.StudentID = 4, .StudentName = "Ram", .Age = 20, .StandardID = 2},
            New Student() With {.StudentID = 5, .StudentName = "Ron", .Age = 15}
        }
        
        Dim standardList = New List(Of Standard) From {
            New Standard() With {.StandardID = 1, .StandardName = "Standard 1"},
            New Standard() With {.StandardID = 2, .StandardName = "Standard 2"},
            New Standard() With {.StandardID = 3, .StandardName = "Standard 3"}         
        }
​
​
        Dim joinResult = studentList.Join(standardList, 
                                    Function(s) s.StandardID, 
                                    Function(std) std.StandardID, 
                                    Function(s, std) New With 
                                    {
                                        .StudentName = s.StudentName, 
                                        .StandardName = std.StandardName
                                    })
​
            
        For Each stud In joinResult
            Console.WriteLine("{0} - {1}", stud.StudentName, stud.StandardName)
        Next
        
    End Sub
End Module
    
    Public Class Student
        Private _studentID As integer
        Private _studentName As string
        Private _age As integer
        Private _standardID As integer
        
        Property StudentID() As integer
            Get
                Return _studentID
            End Get
            Set(ByVal Value As integer)
                _studentID = Value
            End Set
        End Property
        
        Property StudentName() As string
            Get
                Return _studentName
            End Get
            Set(ByVal Value As string)
                _studentName = Value
            End Set
        End Property
        
        Property Age() As integer
            Get
                Return _age
            End Get
            Set(ByVal Value As integer)
                _age = Value
            End Set
        End Property
        
    Property StandardId() As integer
            Get
                Return _standardID
            End Get
            Set(ByVal Value As integer)
                _standardID = Value
            End Set
        End Property
    End Class
​
Public Class Standard
    Private _standardID As integer
    Private _standardName As string
        
        
        Property StandardID() As integer
            Get
                Return _standardID
            End Get
            Set(ByVal Value As integer)
                _standardID = Value
            End Set
        End Property
        
        Property StandardName() As string
            Get
                Return _standardName
            End Get
            Set(ByVal Value As string)
                _standardName = Value
            End Set
        End Property
        
    End Class

... set(): до установки: this[1]==0
... set(): после установки: this[1]==0
... set(): до установки: this[10]==0
... set(): после установки: this[10]==8
... set(): до установки: this[100]==0
... set(): после установки: this[100]==18
... set(): до установки: this[1000]==0
... set(): после установки: this[1000]==118
... set(): до установки: this[10000]==0
... set(): после установки: this[10000]==8118
... set(): значение 58118 не устанавливалось, т.к. не распознано!((
... set(): значение 58118 не устанавливалось, т.к. не распознано!((
... set(): значение 58118 не устанавливалось, т.к. не распознано!((
... set(): значение 58118 не устанавливалось, т.к. не распознано!((
... set(): значение 58118 не устанавливалось, т.к. не распознано!((
... get(): this[10]==80
... get(): this[-10]==0!((
... get(): this[100]==1800
... get(): this[11]==0!((
... get(): this[1000]==118000
... get(): this[60]==0!((
... get(): this[10000]==81180000
... get(): this[101]==0!((
Num = 58118, money count = 81299880
... get(): this[1]==0
... get(): this[1,4]==0
4 денег номиналом 1 нет в копилке!(
... get(): this[10]==80
... get(): this[10,40]==80
40 денег номиналом 10 есть в копилке!)
... get(): this[100]==1800
... get(): this[100,400]==1800
400 денег номиналом 100 есть в копилке!)
... get(): this[1000]==118000
... get(): this[1000,4000]==118000
4000 денег номиналом 1000 есть в копилке!)

Cached Result
Last Run:	7:39:08 am
Compile:	0.126s
Execute:	0s
Memory:	24kb
CPU:	0.031s

View IL Code