还是读卡的问题 给个思路

Question

这是第一次读卡
For tempi = 0 To ncounter - 1
                   Set litem = Form1.ListView1.ListItems.Add(, , "0")  '显示序号
                    litem.SubItems(1) = tempi + 1
                    litem.SubItems(2) = temp(tempi)  '显示所有读到的卡
                    litem.SubItems(3) = times
            Next tempitemp(tempi)读到卡都放此数组里 因为读的卡号次序是随机的  所以 
第二次读卡 时 次序和第一次存放的次序 不同
比如 第一次
temp(0)=12
temp(1)=13
temp(2)=14
第二次读到的次序可能是
temp(0)=13
temp(1)=14
temp(2)=12
现在 想每次显示的效果都以 第一次为基础  跟以后每次读的 都和第一次的比较
相同的就 在次数列加一次  (如 第二次读的 temp(0)=13 和第一次读到的 三条一一比较 因和temp(1)相等 所以 第一次的temp(1)的次数列加一次  )
不同的 再加一行
谢谢了  大概的思路 

Answer 1

用卡号做关键字呀，第二次，用关键字找Item就行了。

Answer 2

ITEM? key? 此控件不是很熟悉　　查书　也没有几本书介绍的能大概说说么

Answer 3

用 ListBox（或 ComboBox） 控件很容易解决：ListBox 的 List 保存卡号，相应的 ItemData 属性保存频数。用下列 API 查找已有的列表项：Private Declare Function SendMessagebyString Lib _
"user32" Alias "SendMessageA" (ByVal hWND As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As LongPrivate Const LB_FINDSTRINGEXACT = &H1A2
Private Const CB_FINDSTRINGEXACT = &H158例：
Dim n As Integer
......
n = SendMessagebyString(List1.hWnd,  LB_FINDSTRINGEXACT, -1, CStr(tmp(i))) 
If n = -1 Then
    List1.AddItem CStr(tmp(i))
    List1.ItemData(List1.NewIndex) = 1
Else
    List1.ItemData(n) = List1.ItemData(n) + 1
End If 

Answer 4

listview 控件就不行 么?LIST能像 listview控件一样 在最顶部   列出标题么?如  序号  内容  作者
1      WWW   ANYD
2      EEE   TOM

Answer 5

List1.ItemData(n) = List1.ItemData(n) + 1
能计算出 次数
好象没办法 显示在 次条记录的后面啊