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 Classを使用すると、より優れたユーザー エクスペリエンスを提供できる場合があります。

于 2013-03-19T19:42:04.647 に答える
1

テキスト ボックス内の文字列値は何ですか?

TryParse()はスローする代わりにエラーを返します。代わりにそれを試してください。

于 2013-03-19T14:16:06.523 に答える