Question

我有一个非常基本的程序作为一个任务（我是初学者，所以对我来说仍然很棘手）需要你输入一个十进制值，并有一个复选框进行计算，然后在不同的标签中显示结果。当我选中没有添加值的复选框时，我经常会出错。

Private Sub chkGST_CheckedChanged(sender As Object, e As EventArgs) Handles chkGST.CheckedChanged
    'get txtDollarAmt*const dGST (0.07D) display lblGSTOutput. txtDollarAmt+dGST, display lblTotalOutput

    Dim dAmt As String

    dAmt = Decimal.Parse(txtDollarAmt.Text)

    If chkGST.Checked = True Then
        lblGSTOutput.Text = dAmt * dGST

    End If



End Sub

Answer 1

在尝试解析文本（将其转换为Decimal）之前，请检查它是否为null。使用Try Catch块。

而不是这一行。

dAmt = Decimal.Parse(txtDollarAmt.Text)

使用此 -

Try
   dAmt = Decimal.Parse(txtDollarAmt.Text)

Catch e As FormatException

End Try

Answer 2

Dim dAmt As Decimal 

If Decimal.TryParse(txtDollarAmt.Text, dAmt) Then
    If chkGST.Checked = True Then
        lblGSTOutput.Text = dAmt * dGST
    End If
End If

检查复选框时出错

2 个答案: