ช่วยแก้ให้หน่อยค่ะ มันคิดส่วนลดไม่ได้ มันไม่สามารถคิดส่วนลดได้ค่ะ คือพอเราใส่ส่วนลดทีหลังมันไม่ยอมคิดให้

Private Sub CalculatePaid()
	Dim i As Integer = 0
	Dim tmpPaidTotal As Double = 0
	Dim tmpNetTotal As Double = 0
	Dim tmpDc As Single = 0.0
	For i = 0 To lsvProductList.Items.Count - 1
	tmpPaidTotal += CDbl(lsvProductList.Items(i).SubItems(5).Text.Trim())
	Next
	lblPaid.Text = tmpPaidTotal.ToString("#,##0")

	tmpDc = CSng(tmpPaidTotal * CDbl(Val(txtDc.Text)) / 100)
	tmpNetTotal = tmpPaidTotal - tmpDc
	lblNet.Text = tmpNetTotal.ToString("#,##0")
End Sub