Dim i As Integer, j As Integer
Dim lvWidth As Integer
lvWidth = ListView1.Width

'初始化LISTVIEW的某些属性
ListView1.View = lvwReport
ListView1.GridLines = True
ListView1.FullRowSelect = True

ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear

For i = 1 To 2 '初始化列内容，列宽
Set ColumnHeader = ListView1.ColumnHeaders.Add
ColumnHeader.Text = RsAddPOI.Fields(i).Name
ColumnHeader.Width = lvWidth / 2
Next

For j = 1 To RsAddPOI.RecordCount - 1
If RsAddPOI.EOF Then Exit For
Set ListItem = ListView1.ListItems.Add
ListItem.Text = RsAddPOI.Fields(1).Value
For i = 1 To 2
ListItem.SubItems(i) = RsAddPOI.Fields(i).Value ‘这里说无效的属性值
Next
RsAddPOI.MoveNext
Next
数据库里2个字段分别是IDNUM和NAME，有20多条记录，我想把纪录都显示在LISTVIEW里！

For j = 1 To RsAddPOI.RecordCount - 1
If RsAddPOI.EOF Then Exit For
' Set ListItem = ListView1.ListItems.Add
' ListItems.Text = RsAddPOI.Fields(1).Value
Set ListItem = ListView1.ListItems.Add
ListItem.Text = RsAddPOI.Fields(2).Value 显示第3个字段的内容
'For i = 1 To 2
' ListItem.SubItems(i) = RsAddPOI.Fields(i).Value
'ListItem.SubItems(i + 1) = RsAddPOI.Fields(i).Value
' Next
RsAddPOI.MoveNext

Next
改成这样了，但是只能显示一个字段的内容！

有人能帮我下吗？

有些不是很明白啊，能QQ教下我吗？
我要在放假5号前个简单的程序啊！
MY QQ：198832372

[此贴子已经被作者于2007-5-2 23:28:20编辑过]