一个简单的问题

Question

Private Sub SetListView1()
'    ListView1.View = lvwList
     ListView1.GridLines = True 
     Dim xItem As ListItem
     ListView1.ListItems.Clear
     rs.MoveFirst
     Do While Not rs.EOF
        Set xItem = ListView1.ListItems.Add
        
        With xItem
        
              .Text = Trim(rs.Fields("id"))
'              .SubItems(1) = Trim(rs.Fields("Text"))
              (运行到上面这句时出错，说是无效的属性值）
   End With
        rs.MoveNext
    Loop
End Sub哪错了呢，单独运行.text是正确的

Answer 1

Private Sub SetListView1()
'    ListView1.View = lvwList
    ListView1.GridLines = True
    Dim xItem As ListItem
    ListView1.ListItems.Clear
    rs.MoveFirst
    Do While Not rs.EOF
        Set xItem = ListView1.ListItems.Add(, , Trim(rs.Fields("id")))
        'xItem.SubItems(1) = Trim(rs.Fields("Text"))
        rs.MoveNext
    Loop
End Sub'看行不行。

Answer 2

1、listview1是否有两列？如果没有，引用不了 .subitems(1)
2、rs.Fields("Text")) 是否为 null 值？可换成 
   .subitems(1)=iif(IsNull(rs.Fields("Text")),"",trim(rs.Fields("Text")))

Answer 3

设计时，在控件的属性页的“列头”中添加/减少，也可以用代码动态加减listview1.ColumnHeaders.Add    '加一列
lisvview1.ColumnHeaders.Remove i '减去第 i 列