小数点后两位无和

Question

我只是启动它，以结合SQL在vb.net中创建一个程序。

我有5个文本框与2位小数，这是5个值10,50 ， 7,50 ， 8,50 ， 5,75和8,25 。 当我对此求和并将其放在另一个文本框中时，它将向我显示值38,00而不是40,50 。

我的代码如下：

Public Sub plussen()

    Dim i1 As Integer
    Dim i2 As Integer
    Dim i3 As Integer
    Dim i4 As Integer
    Dim i5 As Integer
    Dim i6 As Integer

    For i1 = 5 To 20
        i2 = i1 + 396
        i3 = i1 + 496
        i4 = i1 + 596
        i5 = i1 + 696
        i6 = i1 + 896

        Me.Controls.Find("TextBox" + CStr(i1), True)(0).Text = (Val(Me.Controls.Find("TextBox" + CStr(i2), True)(0).Text) + Val(Me.Controls.Find("TextBox" + CStr(i3), True)(0).Text) + Val(Me.Controls.Find("TextBox" + CStr(i4), True)(0).Text) + Val(Me.Controls.Find("TextBox" + CStr(i5), True)(0).Text) + Val(Me.Controls.Find("TextBox" + CStr(i6), True)(0).Text)).ToString("F2")

    Next
End Sub

我把它放在一个循环中，因为我要计算20 x 5个框。 这是可行的，但正如我在这段代码中所说的，它不会对小数点求和。

有人对我的问题有想法吗？

Answer 1

这是超级la脚，但来自文档：

Val函数仅将句点（。）识别为有效的小数点分隔符。 当使用其他十进制分隔符时（如在国际应用程序中），请改用CDbl或CInt将字符串转换为数字。 要将特定区域性中的数字的字符串表示形式转换为数字值，请使用数字类型的Parse（String，IFormatProvider）方法。 例如，将字符串转换为Double时，请使用Double.Parse。

因此，基本上您需要使用'。 而不是在文本框中输入“”，或者最好从Val（）切换到Double.Parse（）。

参考： https : //msdn.microsoft.com/zh-cn/library/9da280t0(v= vs.110) .aspx

Answer 2

将您的val（）更改为Convert.ToDecimal（）并使用CultureInfo（“ fr-FR”）指定十进制格式。

例如

Convert.ToDecimal("10,5", new CultureInfo("fr-FR"))