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

[scteam]

If List.Text = "√" Then
List.Text = .SelectedItem.Index
Else
List.Text = "√"
End If

以前是以上这样正常 刚发现在重新排序的情况下List.Text不是实际序号而是顺序序号

[tim_zhang]

另外 加一列 记录当前的关键字的值 排序后根据这列来判断

[游子]

学习。。。。呵呵

[scteam]

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

[vansoft]

改用KEY吧。

[scteam]

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

改这样List.Text=空了

[scteam]

那位达人帮忙啊 3Q

[fvflove]

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

[scteam]

谢谢楼上

我是以下这样啊
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

'增加采用这种格式~该怎么写呢 谢谢

[fvflove]

[CODE=VB]
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
[/Code]