This is a test.

[unity311unity]

Private Sub customerButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles customerButton.Click
If Me.DatesOK Then
Dim box1 As TextBox
Me.FromDate = Convert.ToDateTime(Me.fromText.Text)
Me.toDate = Convert.ToDateTime(Me.toText.Text)
'Me.ClearReports()
Reports1.custName((Reports1.numCustomers + 1)) = "Unknown"
Dim reader As New System.IO.StreamReader(Reports1.transFileName)
Do While (reader.Peek > -1)
Reports1.oneLine = reader.ReadLine
Reports1.valsRead = Reports1.oneLine.Split(New Char() {"~"c})
If ((DateTime.Compare(Convert.ToDateTime(Reports1.valsRead(4)), Me.FromDate) >= 0) And (DateTime.Compare(Convert.ToDateTime(Reports1.valsRead(4)), Me.toDate) <= 0)) Then
Me.N = Me.findCustomer(Reports1.valsRead(1))
Dim num2 As Integer = Me.N
Me.numOfSales(num2) += 1
num2 = Me.N
Me.totalSales(num2) = Decimal.Add(Me.totalSales(num2), Convert.ToDecimal(Reports1.valsRead(3)))
End If
Loop
reader.Close()
Me.heading.Text = ("Customer".PadRight(20) & " Units Sold" & "Revenue".PadLeft(13))
Dim num1 As Integer = (Reports1.numCustomers + 1)
Me.N = 1
Do While (Me.N <= num1)
box1 = Me.reportText
Dim textArray As String() = New String() {box1.Text, Reports1.custName(Me.N).PadRight(20), Me.numOfSales(Me.N).ToString("n0").PadLeft(10), Me.totalSales(Me.N).ToString("c2").PadLeft(15), ChrW(13) & ChrW(10)}
box1.Text = String.Concat(textArray)
Me.totalNumOfSales = (Me.totalNumOfSales + Me.numOfSales(Me.N))
Me.totalDollarSales = Decimal.Add(Me.totalDollarSales, Me.totalSales(Me.N))
Me.N += 1
Loop
box1 = Me.reportText
box1.Text = (box1.Text & " Totals".PadRight(20) & Me.totalNumOfSales.ToString("n0").PadLeft(10) & Me.totalDollarSales.ToString("c2").PadLeft(15))
End If

End Sub

[si_the_geek]

Moved to test forum.

[unity311unity]

Oops, sorry, I meant to put this in the test forum, but put it in here by accident somehow. :blush:

[kregg]

w00t! free c0d3!