Question

VB中索引超出边界是什么错

Dim i As Integer
Dim row_ii As Integer
Dim ssss As String
Dim MyString
ListView1.ListItems.Clear
row_ii = sele_1 //sele_1是查询方法 返回行数
For i = 1 To row_ii
ListView1.ListItems(i).SubItems(1) = filereadold(i - 1).name // 这一行老是报索引超出边界 ,请各位大侠帮帮忙
Next

Answer 1

ListView1.ListItems.Clear
此时listview1没有任何listitems
调用一个不存在listitem( ListView1.ListItems(1))肯定出错
要添加后再用
dim newitem as listitem
For i = 1 To row_ii
set newitem=listview1.additem
newitem.SubItems(1) = filereadold(i - 1).name

大概如此，那几句代码是随手写的，只是表示一下那个意思。

Answer 2

ListView1.ListItems.Clear
这里你都把ListView1清空了，下面的你是要添加，而不是修改

Answer 3

说明你这个ListView1的行数没有 sele_1返回的这么多

没有看到 sele_1方法，估计是循环起始值错了
改成：
For i = 1 To row_ii
ListView1.ListItems(i-1).SubItems(1) = filereadold(i - 1).name