如何解决TryParse方法正在读取负值,并将其变为VB.Net代码中的正0
我创建此代码是为了获得这些值的总和。
Dim budget As Double
If gv_DO_Tasks.Rows.Count() = 0 Then
lblTotalTaskTotalBudget.Text = ""
Return
End If
For Each i As GridViewRow In gv_DO_Tasks.Rows
Dim amount As String = Replace(i.Cells(6).Text,"$"," ")
Dim value As Double
If Double.TryParse(amount,value) = True Then
budget = budget + value
End If
Next
问题是我有一个负值作为金额之一,当我尝试执行TryParse方法将字符串形式的金额转换为双精度数时,该值变为0(作为正整数),而不是前一个价值是($ 26,652.25)或-$ 26,652.25这会使应该少的总金额混乱。总金额显示为$ 989,992.74,但应为$ 963,340.49。
请帮助,谢谢。
解决方法
我怀疑用空格替换美元符号会给您留下这样的印象:
- 26,642.25
请注意负号和值之间的空格。如果您将美元符号替换为空字符串,那么我敢打赌代码会起作用:
Dim amount As String = Replace(i.Cells(6).Text,"$","")
我可能也很想写这样的实用程序/库方法:
<Extension()>
Public Shared Iterator Function WhereDoubleParses(Of T)(items As IEnumerable(Of T),selector As Func(Of T,Double)) As IEnumerable(Of Double)
For Each item As T in items
Dim result As Double
If (Double.TryParse(selector(item),result) Then
Yield result
End If
Next
End Function
然后我将用来将原来的For
循环缩减为以下形式:
budget = gv_DO_Tasks.Rows.
WhereDoubleParses(Function(i) i.Cells(6).Text.Replace("$","")).
Sum()
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。