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

scteam 2008-07-10 09:04:18
If List.Text = "√" Then
List.Text = .SelectedItem.Index
Else
List.Text = "√"
End If

以前是以上这样正常 刚发现在重新排序的情况下List.Text不是实际序号而是顺序序号
...全文
98 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
fvflove 2008-07-13
  • 打赏
  • 举报
回复
[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]
scteam 2008-07-13
  • 打赏
  • 举报
回复
谢谢楼上

我是以下这样啊
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 2008-07-13
  • 打赏
  • 举报
回复

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





scteam 2008-07-13
  • 打赏
  • 举报
回复
那位达人帮忙啊 3Q
scteam 2008-07-11
  • 打赏
  • 举报
回复
怎么改啊?
If List.Text = "√" Then
List.Text = .SelectedItem.key
Else
List.Text = "√"
End If

改这样List.Text=空了
vansoft 2008-07-11
  • 打赏
  • 举报
回复
改用KEY吧。
scteam 2008-07-11
  • 打赏
  • 举报
回复
另外 加一列 记录当前的关键字的值 排序后根据这列来判断~楼上这个办法我知道呢 改用KEY该怎么改呢?
游子 2008-07-11
  • 打赏
  • 举报
回复
学习。。。。呵呵
tim_zhang 2008-07-11
  • 打赏
  • 举报
回复
另外 加一列 记录当前的关键字的值 排序后根据这列来判断

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧