Comments by Techhi (Top 5 by date)

Hmm, i think i have an idea but here is my result declaration.


<pre lang="vb"> Dim result = From s In reader.GetSales() _
Join c In reader.GetSalesRep() _
On s.SalesRepID Equals c.SalesRepID _
Order By c.SalesRepID _
Select New _
With { _
.SalesRepID = c.SalesRepID, _
.FirstName = c.FirstName, _
.LastName = c.LastName, _
.PhotoFile = c.PhotoFile, _
.Manufacturer = s.Manufacturer, _
.Model = s.Model, _
.Color = s.Color, _
.Year = s.Year, _
.DateSold = s.DateSold, _
.AcquisitionCost = s.AcquisitionCost, _
.MaintenanceCost = s.MaintenanceCost, _
.SellingPrice = s.SellingPrice, _
.AcquiredDate = s.AcquiredDate, _
.OdometerReading = s.OdometerReading, _
.StartDate = c.StartDate, _
.VehicleID = s.VehicleID _
}




Dim sb As New StringBuilder(50)
Dim path As String = "..\debug\CarSalesFiles\Commissions" + DateTime.Today.Year + DateTime.Today.Month + DateTime.Today.Day + ".txt"
If Not File.Exists(path) Then
Using sw As StreamWriter = File.CreateText(path)
For Each item As var In result</pre>