0
    Dim labor, material, partstotal, labortotal, subtotal, tax, total As Decimal
    material = Decimal.Parse(AmountTextBox.Text)
    labor = Decimal.Parse(LaborTextBox.Text)

    partstotal = material
    labortotal = labor * 50
    subtotal = labortotal + partstotal
    tax = subtotal * 0.08
    total = subtotal + tax

    partstotal = Decimal.Parse(PartsTextBox.Text)
    labortotal = Decimal.Parse(LaborTextBox.Text)
    subtotal = Decimal.Parse(SubTotalTextBox.Text)
    tax = Decimal.Parse(SalesTaxTextBox.Text)
    total = Decimal.Parse(TotalTextBox.Text)

material = Decimal.Parse(AmountTextBox.Text) 不会运行。为什么?

4

2 回答 2

1

我认为 GregC 的意思是你需要使用这样的代码:

Dim material As Decimal
If Not Decimal.TryParse(AmountTextBox.Text, material) Then
    ' the text in AmountTextBox could not be parsed as
    ' a Decimal.
    'TODO: do something about it.
End If

尽管要验证的项目很多,但您可以通过使用ErrorProvider 类来提供更好的用户体验。

于 2013-03-19T19:42:04.647 回答
1

文本框中的字符串值是什么?

TryParse()将返回错误而不是抛出。试试那个。

于 2013-03-19T14:16:06.523 回答