汇总列表框中的项目

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

汇总列表框中的项目

Summing items in listbox

linq

vb.net

string.format