求助 vb 动态数组问题

Question

 Dim i As Long
Dim j As Long
Dim Count As Long
Dim Text As Long
Text = Text4.Text
'======================================================
 
Count = ListView7.ListItems.Count - Text
ReDim addstr(Count) As String
For i = Text To ListView7.ListItems.Count
addstr(i - Text) = ListView7.ListItems(i).Text
NextFor j = 1 To UBound(addstr)
 ListView8.Listitems.Add,,addstr(j)
 Next  这个运行怎么结果以重复的添加到了   表现出来的结果是  如
123
123
123
456
456
456
789
789
789
     这样三个重复形式添加到了    怎么回事呢

Answer 1

 使用了动态数组以后，为什么无法释放初始化呢 就是 addstr=nothing  使用这个出现错误提示
  

Answer 2

重复添加的问题应该是
没有及时更新Text4.Text的值造成的
应该在For j = 1 To UBound(addstr)
ListView8.Listitems.Add,,addstr(j)
Next 下面添加一行
Text4.Text=cstr(ListView7.ListItems.Count)
表示目前已经更新到第多少行