Mega Code Archive

 

Categories / VB.Net / Data Structure

 

Using a Where clause to find all projectList that are in stock and cost more than 3 00 per unit

Imports System.IO Imports System.Reflection Imports System.Linq Imports System.Xml.Linq Imports System.Collections Imports System.Collections.Generic Public Class Project     Public ProjectID As Integer     Public ProjectName As String     Public Category As String     Public Cost As Decimal     Public YearLength As Integer End Class Public Class Employee     Public EmployeeID As String     Public CompanyName As String     Public Address As String     Public City As String     Public Region As String     Public PostalCode As String     Public Country As String     Public Phone As String     Public Fax As String     Public Payments As Payment() End Class Public Class Payment     Public PaymentID As Integer     Public PaymentDate As DateTime     Public Total As Decimal End Class Public Class MainClass     Public Shared Sub Main()         Dim projectList As List(Of Project) = New List(Of Project)         projectList.Add(New Project With {.ProjectID = 1, .ProjectName = "A", .Category = "Design", .Cost = 18D, .YearLength = 39})         projectList.Add(New Project With {.ProjectID = 2, .ProjectName = "B", .Category = "Testing", .Cost = 19D, .YearLength = 17})         projectList.Add(New Project With {.ProjectID = 3, .ProjectName = "C", .Category = "Coding", .Cost = 10D, .YearLength = 13})         projectList.Add(New Project With {.ProjectID = 4, .ProjectName = "D", .Category = "Meeting", .Cost = 22D, .YearLength = 53})         projectList.Add(New Project With {.ProjectID = 5, .ProjectName = "E", .Category = "Writing", .Cost = 21.35D, .YearLength = 0})         projectList.Add(New Project With {.ProjectID = 6, .ProjectName = "F", .Category = "Testing", .Cost = 25D, .YearLength = 120})         projectList.Add(New Project With {.ProjectID = 7, .ProjectName = "G", .Category = "Coding", .Cost = 30D, .YearLength = 15})         projectList.Add(New Project With {.ProjectID = 8, .ProjectName = "H", .Category = "Design", .Cost = 40D, .YearLength = 6})         projectList.Add(New Project With {.ProjectID = 9, .ProjectName = "I", .Category = "Coding", .Cost = 97D, .YearLength = 29})         Dim expensiveProjects = From prod In projectList _                                 Where prod.YearLength > 0 AndAlso prod.Cost > 3.0         For Each prod In expensiveProjects             Console.WriteLine(prod.ProjectName)         Next     End Sub End Class