读书人

怎么计算ListView里第三列的所有值相加

发布时间: 2012-02-17 17:50:41 作者: rapoo

如何计算ListView里第三列的所有值相加?
我代码是这样的:
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列“价格“的值?

[解决办法]

VB.NET code
dim allmoney as double=0.0For 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() 

读书人网 >VB Dotnet

热点推荐