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.

[kregg]

w00t! free c0d3!