help - sum up the sales amount

Hi,

CAN ANYONE HELP ON THIS??


Private Sub mnuFileSummary_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileSummary.Click

Dim strMessageString As String
'Call Pay procedure
Call mnuFilePay_Click(sender, e)

'Caculate the total Sales, total commissions & total pays
mdecWeeklySalesSum += decWeeklySales
mdecCommissionsSum += decCommissions
mdecTotalPaySum += decTotalPay

'Display a message box containing total sales, total commissions, and total pay for all salespersons
strMessageString = "Total Sales: " & FormatNumber(mdecWeeklySalesSum, 0) _
& ControlChars.NewLine & ControlChars.NewLine _
& "Total Commissions: " & FormatCurrency(mdecCommissionsSum)
& ControlChars.NewLine & ControlChars.NewLine _
& "Total Pay: " & FormatCurrency(mdecTotalPaySum, 2)

MessageBox.Show(strMessageString, "Sales Report", _
MessageBoxButtons.OK, MessageBoxIcon.Information)


End Sub

Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories