question

i have this code:

While (discountsfile.Peek() > -1)
disc = discountsfile.ReadLine()
pos = InStr(disc, " ")
discamounts = CDbl(Microsoft.VisualBasic.Left(disc, pos - 1))
saleamounts = CInt(Mid(disc, pos + 1))
totalPrice = totalPrice - (totalPrice * (saleamounts / 100))
If totalPrice >= discamounts Then
txtdiscount.Text = Format(totalPrice, "Standard")
Exit While
End If
End While
txtPST.Text = Format(PST, "Standard")
GST = Math.Round(totalPrice * GSTrate, 2)
txtGST.Text = Format(GST, "Standard")
txtTotalAmount.Text = Format(totalPrice + PST + GST, "Standard")

when i click the total button, the pst, gst, price, and total amount appear in different text boxes.
the problem is that if i click the total button again, it will accumulate in price.
the exit while doesn't work.
how can i make it so that the price, pst, gst, and total text box amounts don't keep accumulating when i click the button?

You could try Exit Sub (or Function if its in a function)...


Phreak

One way would be like this (if I really understand your problem) :

Declare a private field as boolean . When you're done with your iteration set this variable to true , something like this :

VB Code:

'Class member variable
Private bool As Boolean =False 
 
 
If Not bool Then 
While (discountsfile.Peek() > -1)
disc = discountsfile.ReadLine()
pos = InStr(disc, " ")
discamounts = CDbl(Microsoft.VisualBasic.Left(disc, pos - 1))
saleamounts = CInt(Mid(disc, pos + 1))
totalPrice = totalPrice - (totalPrice * (saleamounts / 100))
If totalPrice >= discamounts Then
txtdiscount.Text = Format(totalPrice, "Standard")
bool=True
Exit While
End If
End While
txtPST.Text = Format(PST, "Standard")
bool=True
GST = Math.Round(totalPrice * GSTrate, 2)
txtGST.Text = Format(GST, "Standard")
txtTotalAmount.Text = Format(totalPrice + PST + GST, "Standard")
 
 
End If