如何正确获得ListView的行 在重新排序的情况下

Question

If List.Text = "√" Then
List.Text = .SelectedItem.Index
Else
List.Text = "√"
End If以前是以上这样正常 刚发现在重新排序的情况下List.Text不是实际序号而是顺序序号

Answer 1

怎么改啊？
If List.Text = "√" Then 
List.Text = .SelectedItem.key
Else 
List.Text = "√" 
End If 改这样List.Text=空了 

Answer 2

另外 加一列 记录当前的关键字的值 排序后根据这列来判断~楼上这个办法我知道呢 改用KEY该怎么改呢？

Answer 3

'增加采用这种格式
  ListView1.ListItems.Add , "NO" & 编号, 编号
'引用采用这种格式
List.Text = ListView1.SelectedItem.Key

Answer 4

谢谢楼上我是以下这样啊
For i = 1 To rs.RecordCount
Set List = .ListItems.Add
With List
.Text = CStr(i)
.SubItems(1) = rs.Fields(0)
.SubItems(2) = rs.Fields(1)
End With
rs.MoveNext
Next i'增加采用这种格式~该怎么写呢 谢谢
 

Answer 5

For i = 1 To rs.RecordCount 
Set List = .ListItems.Add    '这句你是增一个空白行吗?
'可以这样改
Set List = .ListItems.Add  , "NO" & i, i '要不要后面这个i ,如果是就不要最后一个i了.增加空白行有什么意思?
With List 
.Text = CStr(i) 
.SubItems(1) = rs.Fields(0) 
.SubItems(2) = rs.Fields(1) 
End With 
rs.MoveNext 
Next i