Sorry i wont figure out how to add a grand total to the end of my list of all the amounts.
Code:
Public Class Form1
Structure Clerk
Dim ClerkID As String
Dim DOS As String
Dim Amount As Double
Dim SKU As String
End Structure
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Clerks() As String = IO.File.ReadAllLines("Question4.txt")
Dim query = From line In Clerks
Let data = line.Split(","c)
Let ClerkID = data(0)
Let DOS = data(1)
Let Amount = data(2)
Let SKU = data(3)
Select ClerkID, DOS, Amount, SKU
For Each Clerk In query
LstClerks.Items.Add("Clerk ID: " & Clerk.ClerkID & " " & "Sale Amount: " & Clerk.Amount)
LstClerks.Items.Add("Sale Total: " & Clerk.Amount & " Average: N/A " & "Stock: 1 ")
LstClerks.Items.Add(" ")
Next
End Sub
Private Sub Button1_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseHover
ToolTip1.SetToolTip(Button1, "Button has no functionality")
End Sub
End Class