如何计算ListView里第三列的所有值相加？

[hsx49949046]

我代码是这样的：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
c_id = ListView1.SelectedItems(0).Text

Dim sql As String
Dim ds As New DataSet
sql = "select * from 菜单 where cstr(id)='" & c_id & "'"
Dim cmd As New OleDbDataAdapter(sql, Conn)
cmd.Fill(ds, "菜单")
Dim myvalues(0) As String
Dim listview As New ListViewItem
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
listview.Text = ds.Tables(0).Rows(i)("id")
listview.SubItems.Add(ds.Tables(0).Rows(i)("菜名"))
listview.SubItems.Add((Format(Val(ds.Tables(0).Rows(i)("价格")), "currency")))
ListView2.Items.Add(listview)
listview = New ListViewItem()
Next

End Sub

我把ListView1的几行压入ListView2后。如何计算ListView2列“价格“的值？

[hsx49949046]

顶一下

[程序员Linc]

我只能帮顶了~~~

[htpower]

dim allmoney as double=0.0
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1 
    listview.Text = ds.Tables(0).Rows(i)("id") 
    listview.SubItems.Add(ds.Tables(0).Rows(i)("菜名")) 
    listview.SubItems.Add((Format(Val(ds.Tables(0).Rows(i)("价格")), "currency")))
    allmoney+= ds.Tables(0).Rows(i)("价格")
    ListView2.Items.Add(listview) 
    listview = New ListViewItem() 
Next
    listview.SubItems.Add("合计:")
    listview.SubItems.Add(allmoney) 
    ListView2.Items.Add(listview) 
    listview = New ListViewItem()

试试?

[hsx49949046]

楼上的不行啊。。我不需要把合计放在listview里。
只要把ListView2所有子项“价格“的值加起来后放在Me.TextBox4.Text里就可以了。
我试了好多种都不行。
下面的代码为什么会错呢？sum + ListView2.SelectedItems(i).SubItems(2).TextDim sum As Integer这里不是累加子项“价格”的值吗？望高人指点。
sum = 0
Dim i As Integer
For i = 0 To Me.ListView2.Items.Count - 1
sum = sum + ListView2.SelectedItems(i).SubItems(2).Text
Next
Me.TextBox4.Text = Format(Val(sum), "currency")

[zywinner168]

为什么非要在从listview2里面来相加呢？在做循环的时候直接把价格相加然后循环结束时把值放到txtbox里不行吗？