vb 统计listview中某列数据某个相同数据出现的个数

Question

直接在显示出来得listview中统计,而且累加下去
我的listview中的数据是通过按回车键显示在里面的,当第二列出现我设定的值的时候(如30),在一个text里面计数出现个数
比如我的listview中增加一条记录得情况,我想实现的是:
序号  测量值
1      20       , text=0
2      21       , text=0         
3      30       , text=1 
4      21       , text=1 
5      30       , text=2 
6      21       , text=2
7      30       , text=3 
8      21       , text=3
9      30       , text=4 
.
.
.
.
附上我实现显示在listview中的代码
    If Right$(data, 1) = Chr(10) Then '用串口调试知道数据最后一位其实是回车键
    If Mid$(data, 9, 1) = Chr(13) Then
       Dim nodeX As ListItem                   'listview show
       Set nodeX = ListView1.ListItems.Add()
       nodeX.Text = ListView1.ListItems.Count  '序号
       nodeX.SubItems(1) = Textcom1.Text       '测量值
       Text12.Text = ListView1.ListItems.Count '显示总记录
我自己想的是用Split不知道能不能,自己做的值是一条记录,不知道了~~~~~~~~~

Answer 1

Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "序号"
ListView1.ColumnHeaders.Add , , "测量值"
ListView1.ColumnHeaders.Add , , ""
For i = 1 To 10
ListView1.ListItems.Add , , i
Next
Text1 = ""End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Static i As Integer
If KeyCode = vbKeyReturn Then
i = i + 1
ListView1.ListItems(i).ListSubItems.Add , , Text1
For J = 1 To i
If ListView1.ListItems(J).SubItems(1) = Trim(Text1) Then
K = K + 1
End If
 Next
ListView1.ListItems(i).SubItems(2) = "text=" & K - 1
K = 0
End If
End Sub

Answer 2

对不起~~~看来是我表达不清楚!!
我的意思是listview显示的数据是下面这样,这个我已经做了,
我意思是再加一个text显示我想要统计数据的个数,用来分析产品合格的数量
比如下面的数据30,那么我测量出来的数据到3就有一个,到9就4个,我一直测量一直累计下去,统计出来序号  测量值 
1      20      
2      21             
3      30      
4      21      
5      30      
6      21      
7      30     
8      21      
9      30      
. 
. 
. 
. 
text10.text=???  '统计所要求数值的个数

Answer 3

设定的数值我已经默认, If nodeX.SubItems(2) = "30" Then 
                     ........
                     text10.text=  '统计所要求数值的个数