แก้Error ให้หน่อยค่ะ
มันขึ้น Error ว่า Conversion from string "" to type 'Double' is not valid. ช่วยแก้ให้หน่อยค่ะ
Private Sub CalculateTotal()
Dim Total As Double = 0
Total = CDbl(lblPrice.Text) * CInt(txtAmount.Text)
Dim dc As Single = 0.0
dc = CSng(Total * (CInt(txtDc.Text) / 100))
Total = Total - dc
lblTotal.Text = Total.ToString("#,##0.00")
End Sub
|