对列表框中的项求和

Question

我在这个问题上遇到了麻烦：

lsamount.Items.Add(String.Format("{0:n}", Val(exp_amount.Text)))

在我的计时器代码中：

For i = 0 To lsamount.Items.Count - 1
   TOT = TOT + Val(lsamount.Items(i))
Next i
totalamount.Text = TOT.ToString

有没有最简单的方法可以添加这个 2？

Answer 1

这是另一个建议，只有一行代码，没有循环......这使用Linq来实现此目的。

 totalamount.Text = lsamount.Items.Cast(Of String)().Sum(Function(x) Convert.ToDouble(x.Replace(",", ""))).ToString

Answer 2

试试这个：

totalamount.Text = string.Join("", lsamount.Items)

Answer 3

我想我搞定了这是我的新计时器代码

        Dim TOT As Double
        Dim tmpstr As String
        For i = 0 To lsamount.Items.Count - 1
            tmpstr = lsamount.Items(i).ToString.Replace(",", "")
            TOT = TOT + Val(tmpstr)
        Next i
        totalamount.Text = (String.Format("{0:n}", Val(TOT)))

它工作正常。