[英]how to change NAN to 0 in vb.net
我想將文本 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
評估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
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.