Question

谁能提供下vb ListView统计一列数据的代码

比如说我要在一个标签控件中显示ListView的第2列的统计数据，第一行加第二行一直加到最后行

Answer 1

选在窗体中加入一个.listview 和两个command
之后写上如下代码.
Private Sub Command1_Click()
ListView1.View = lvwReport '以详细资料显示
If ListView1.ColumnHeaders.Count = 0 Then
ListView1.ColumnHeaders.Add , , "A" '增加列首
ListView1.ColumnHeaders.Add , , "b"
End If
For i = 1 To 10
Dim a As ListItem
Set a = ListView1.ListItems.Add(, , "ff")
a.SubItems(1) = Int(Rnd * 100)
Next
End Sub

Private Sub Command2_Click()
For i = 1 To ListView1.ListItems.Count
s = s + Val(ListView1.ListItems(i).SubItems(1)) '求合计
Next
MsgBox s '输出
End Sub