如何在 vb.net 中将 NAN 更改为 0

Question

我想将文本 label 中的 NAN 结果更改为 0。

推荐里有解决方案吗？

谢谢

Private Sub Calculatedispercent()
            Dim DisTotal As Double
            Dim Total As Double
            Double.TryParse(Lbldistotal.Text, DisTotal)
            Double.TryParse(lblTotal.Text, Total)
 lblDispercent.Text = (DisTotal / Total * 100).ToString("N2")
End Sub
Private Sub CalculateGrandTotal()
            Dim tot As Double = 0
            Dim Dispercent As Double
Double.TryParse(lblDispercent.Text, Dispercent)
 For Each item As DataGridViewRow In grid.Rows
                Dim val As Double
                Double.TryParse(CType(item.Cells(5).Value, String), val)
                tot += val
            Next item
            lblGrandTotal.Text = (tot * (1 - Dispercent / 100)).ToString("N2")
End Sub

Answer 1

评估TryParse的结果并使用If ，如下所示：

Private Sub Calculatedispercent()
    Dim DisTotal As Double
    Dim Total As Double
    Dim result As Double = 0
    If Double.TryParse(Lbldistotal.Text, DisTotal) AndAlso
       Double.TryParse(lblTotal.Text, Total) Then
        result = If(Total = 0, 0, DisTotal / Total * 100)
    End If
    lblDispercent.Text = result.ToString("N2")
End Sub