ASP.NET

Public Class DbTestClass
	Public Sub Test()
		Using context = New Model.ParadiseEntities()
			Dim items = From s In context.Survey3D.Take(5)New Testing() With { _
				Key .TestId = s.Id, _
				Key .Items = From v In context.Volumes Where v.Survey3D_Id = s.Idv, _
				Key .Items1 = From v In context.Volumes Where v.Survey3D_Id = s.Idv, _
				Key .Items2 = From v In context.Volumes Where v.Survey3D_Id = s.Idv, _
				Key .Items3 = From v In context.Volumes Where v.Survey3D_Id = s.Idv, _
				Key .Item = context.Volumes.Where(Function(a) a.Survey3D_Id = s.Id).FirstOrDefault() _
			}
			Dim list = items.ToList()
		End Using
	End Sub
End Class

<DataContract> _
Public Class Testing
	<DataMember> _
	Public Property TestId() As Guid
		Get
			Return m_TestId
		End Get
		Set
			m_TestId = Value
		End Set
	End Property
	Private m_TestId As Guid
	<DataMember> _
	Public Property Items() As IEnumerable(Of Volume)
		Get
			Return m_Items
		End Get
		Set
			m_Items = Value
		End Set
	End Property
	Private m_Items As IEnumerable(Of Volume)
	<DataMember> _
	Public Property Items1() As IEnumerable(Of Volume)
		Get
			Return m_Items1
		End Get
		Set
			m_Items1 = Value
		End Set
	End Property
	Private m_Items1 As IEnumerable(Of Volume)
	<DataMember> _
	Public Property Items2() As IEnumerable(Of Volume)
		Get
			Return m_Items2
		End Get
		Set
			m_Items2 = Value
		End Set
	End Property
	Private m_Items2 As IEnumerable(Of Volume)
	<DataMember> _
	Public Property Items3() As IEnumerable(Of Volume)
		Get
			Return m_Items3
		End Get
		Set
			m_Items3 = Value
		End Set
	End Property
	Private m_Items3 As IEnumerable(Of Volume)
	<DataMember> _
	Public Property Item() As Volume
		Get
			Return m_Item
		End Get
		Set
			m_Item = Value
		End Set
	End Property
	Private m_Item As Volume

End Class