汇总列表框中的项目

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

试试这个：

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

Answer 2

我认为我钉了它 这是我的新计时器代码

        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)))

工作正常。

Answer 3

这是另一个建议，只有一行代码而没有循环......这使用Linq来完成此任务。

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