用listview控件显示access表中的数据，为什么ID列和姓名列内容一样

[muziguowu315]

麻烦帮忙看一下，这是内部部分代码
strsql = "select ID,姓名,号码,地址,备忘,更新时间 from 人员表 "

Set rs = Cnn.Execute(strsql)


If Not rs.EOF Then
ID = rs.Fields(0)
End If

ListView1.View = lvwReport
ListView1.Sorted = True

For i = 0 To rs.Fields.Count - 1


ListView1.ColumnHeaders.Add , "column" & i, rs.Fields(i).Name


Next i


Do While Not rs.EOF

Set itemReturned = ListView1.ListItems.Add(, "item" & rs.Fields(0), rs.Fields(1))

For i = 1 To rs.Fields.Count - 1

itemReturned.SubItems(i) = rs.Fields(i) & ""

Next i

rs.MoveNext
Loop

[dbcontrols]

For i = 1 To rs.Fields.Count - 1

itemReturned.SubItems(i+1) = rs.Fields(i) & ""

Next i

[muziguowu315]

请问为什么啊？

[muziguowu315]

itemReturned.SubItems(i+1) = rs.Fields(i) & ""
还是不对啊

[muziguowu315]

调试显示 itemReturned.SubItems(i+1) = rs.Fields(i) & ""
是无效的属性值

[andy95800]

ListView1.ListItems.Add(, "item" & rs.Fields(0), rs.Fields(1))
改成
ListView1.ListItems.Add(, "item" & rs.Fields(0), rs.Fields(0))

[muziguowu315]

[Quote=引用 5 楼 andy95800 的回复:]
ListView1.ListItems.Add(, "item" & rs.Fields(0), rs.Fields(1))
改成
ListView1.ListItems.Add(, "item" & rs.Fields(0), rs.Fields(0))
[/Quote]
十分感谢
再附加个问题
怎么对listview进行排序，ID从小到大显示表中记录

[andy95800]

listview里面队列只能进行简单排序 代码很常见 想要复杂的排序方法就需要自己写了

[muziguowu315]

那简单的呢
就是依据ID从小到大排序

[muziguowu315]

ListView1.Sorted = True
ListView1.SortOrder = lvwAscending
这样都不起作用

[andy95800]

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
If ListView1.SortOrder = lvwAscending Then ListView1.SortOrder = lvwDescending Else ListView1.SortOrder = lvwAscending
End Sub

[帝企鹅已被占用]

sql里order by

[a250159393]

呵呵，我看不懂

[muziguowu315]

[Quote=引用 8 楼 muziguowu315 的回复:]
那简单的呢
就是依据ID从小到大排序
[/Quote]
数字排序

[andy95800]

ListView1 只会根据字符串排序
如果想要对数字排序或混排 只能自己写更复杂的代码或者换用 ListView2 :,)