给我个redim与listview结合的例子。

Question

要求其中一个redim要存储listview中返回记录的入库时间，另外一个要存储listview中每条记录的索引，工程就差这一步了，动态数组还没怎摸用过，最好给些注释，谢谢各位帮忙，分不够没的说。

Answer 1

'不是不想帮，是不知你想怎样做，什么数据都没有啊，给个redim的例子啦：
Private Sub Command1_Click()
    Dim MyArr() As Integer
    Dim I As Integer
    '这里求数组的数，例如是123
    I = 123
    ReDim MyArr(123)
    '这里入数组的数
End Sub

Answer 2

要求其中一个redim要存储listview中返回记录的入库时间，另外一个要存储listview中每条记录的索引，就是在我的LISTVIEW的双击事件中，我要通过LISTVIEW上的记录索引和入库时间来写SQL语句跟datagrid做关联，将查找的结果在datagrid上实现，现在就是在redim和LISTVIEW上如何建立关系不太明白。