Question

vb listview列合计代码

我要计算金额列中的金额显示在text1中代码要怎么写呢,会的帮帮忙了,.

Answer 1

Dim sumje As Decimal
sumje = 0
For Each listitem As ListViewItem In ListView1.Items
sumje += Val(listitem.SubItems(1).Text) '这里要注意，你的金额在哪一列要完对哦，看下面的注解
'listitem相当于一行，要得到第一列显示的值：
‘c1 = listitem.text
'得到第二列或后面列显示的值，都要用subitems
'c2 = listitem.subitems(1).text '即可得到这一行第二列显示的值
'c3 = listitem.subitems(2).text '即可得到这一行第三列显示的值，信此类推
Next

text1.text = sumje

Answer 2

Dim a As ListItem
Dim tol As Long
For Each a In Lv1.ListItems
tol = Val(a.ListSubItems(1).Text) '不知道“金额”那列的索引号，这里写了1，自己改改
Next
Text1.Text=Tol