关于listview？

Question

在窗体上添加一个listview控件，编写代码如下：
sub form_load（）
listview1.view=lvwreport
listview1.columnheaders.add ,,"学号",1000
listview1.columnheaders.add ,,"性别",1000,2
listview1.columnheaders.add ,,"年龄",1000,2
listview1.listitems(1).text＝"2001"　出错行
listview1.listitems(1).subitem(1)＝"男"
listview1.listitems(1).subitem(2)＝"23"
end sub
运行时，为何在出错行提示“索引越界”

Answer 1

Private Sub Command1_Click()
    Dim LswItem As ListItem
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "学号", 1000
    ListView1.ColumnHeaders.Add , , "性别", 1000, 2
    ListView1.ColumnHeaders.Add , , "年龄", 1000, 2
    Set LswItem = ListView1.ListItems.Add(, , "2001")
    LswItem.SubItems(1) = "男"
    LswItem.SubItems(2) = "23"
End Sub

Answer 2

sub form_load（）
dim Cur_ListItem as ListItemlistview1.view=lvwreport
listview1.columnheaders.add ,,"学号",1000
listview1.columnheaders.add ,,"性别",1000,2
listview1.columnheaders.add ,,"年龄",1000,2Set Cur_ListItem=listview1.ListItems.Add( ,,"2001")
Cur_ListItem.Subitem(1)＝"男"
Cur_ListItem.Subitem(2)＝"23"end sub

Answer 3

Add 方法 (ListItems、 ColumnHeaders)、ListItems 属性、SubItems 属性示例
下面的示例使用 Biblio.mdb 数据库作为资源，通过 ListItem 对象移居 ListView 控件。要试用此例，请将一个 ListView 控件放置在窗体上，并将代码粘贴到窗体的声明部分。还必须确保已将 Biblio.mdb 安装在机器上。在以下代码中检查 OpenDatabase 函数中的路径，并改变它，使之反映 Biblio.mdb 在机器上的实际路径。注意 除非添加到 Microsoft DAO 3.5 对象库的“引用”，否则示例无法运行。为此，在 Project 菜单上单击 References。搜索 Microsoft DAO 3.5 对象库并单击复选框来选择。Private Sub Form_Load()
   '添加 ColumnHeaders。列宽度等于控件宽度
   '除以 ColumnHeader 对象的数目。
   ListView1.ColumnHeaders. _
   Add , , "Author", ListView1.Width / 3)
   ListView1.ColumnHeaders. _
   Add , , "Author ID", ListView1.Width / 3, _
   lvwColumnCenter
   ListView1.ColumnHeaders. _
   Add , , "Birthdate", ListView1.Width / 3)
   
   ' Set View property to Report.
   ListView1.View = lvwReport 
   '为数据访问对象声明对象变量。
   Dim myDb As Database, myRs As Recordset
   '设置 Database 为 BIBLIO.MDB 数据库。
   ' IMPORTANT: the Biblio.mdb must be on your
   ' machine, and you must set the correct path to
   ' the file in the OpenDatabase function below.
   Set myDb =    DBEngine.Workspaces(0) _
      .OpenDatabase("c:\Program Files\VB\BIBLIO.MDB")
   '设置 recordset 为 "Authors" 表。
   Set myRs = _
   myDb.OpenRecordset("Authors", dbOpenDynaset)
   
   '声明变量以添加 ListItem 对象。
   Dim itmX As ListItem   '若当前记录不是最后一条记录，则添加一个 ListItem 对象。
   'ListItem 对象的文本使用 author 字段。
   'ListItem 对象的 SubItem(1) 使用 AuthorID 字段。
   'ListItem 对象的 SubItem(2) 使用 "Year of Birth" 字段。   While Not myRs.EOF
      Set itmX = ListView1.ListItems. _
      Add(, , CStr(myRs!Author),1)   'Author 字段。
      
      '若 AuthorID 字段不为空，则将 SubItem 1 设置为此字段。
      If Not IsNull(myRs!Au_id) Then
         itmX.SubItems(1) = CStr(myRs!Au_id)   ' Author ID。
      End If      '若 birth 字段不为空，则将 SubItem 2 设置为此字段。
      If Not IsNull(myRs![Year Born]) Then
         itmX.SubItems(2) = myRs![Year Born]
      End If
      myRs.MoveNext   '移动到下一条记录。
   Wend
End Sub