listview分列显示的问题？

Question

我需要用listview控件实现一个小功能：将listview分为3列，分别为“文件名”“开始时间”“结束时间”，并将对应的条目显示在其中。
现在问题是，我将文件的名称依次显示在“文件名”列中，可是怎样将每个文件对应的开始时间、结束时间显示在后两列中？也就是说，如何在第一列没有放满的情况下，将条目显示在第二、三列？
代码如下，后面的请高手帮我添加。谢谢！
   Dim i As Integer
   
    ListView.View = lvwReport
    ListView.ColumnHeaders.Add , , "文件名"
    ListView.ColumnHeaders.Add , , "开始时间"
    ListView.ColumnHeaders.Add , , "结束时间"
    For i = 0 To 4
        ListView.ListItems.Add , , "file" & i
    Next i

Answer 1

Dim ltmListItem As ListItem
For i = 0 To 4
      Set ltmListItem = lvwPerson.ListItems.Add(, , , 0)
      With xlsws
           lvwPerson.ListItems(1).SubItems(2）= 1
           lvwPerson.ListItems(2).SubItems(3) = 2
      End With
Next i