^o^ listview的subitems使用出现InvalidArgument=“1”的值对于“index”无效。错误 重赏!!!!!

[cool_jack2009]

Public Class Form1
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn = New ADODB.Connection()
rs = New ADODB.Recordset()
With conn
.Provider = "Microsoft.Jet.Oledb.4.0"
.Open("employee_data.mdb")
End With
rs.Open("select * from 商品库存", conn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockPessimistic)
Dim column_count As Single = rs.Fields.Count
Dim count_row As Single = rs.RecordCount
ListView1.GridLines = True
For i As Single = 0 To column_count - 1
ListView1.Columns.Add(rs.Fields(i).Name, 70)
Next i
ListView1.Items.Clear()
For i As Integer = 1 To count_row
ListView1.Items.Add(rs.Fields(0).Value)
For j As Integer = 1 To column_count - 1
ListView1.Items(i).SubItems(j) = rs.Fields(j)
Next
rs.MoveNext()
Next
conn = Nothing
rs = Nothing
End Sub
End Class

[ryuubintou]

具体代码没仔细看，ListView也不是很了解
不过很明显的是数组越界的错误。。。

[luan88223]

?．．．错误啊．．．

[gytzdl]

类型不对 转为数字类型

[Luoning9527]

我建议你在出错的地方设置断点，
让程序运行到断点处。
然后添加观察（Add Watch)ListView1,
展开它，查看items的count，或subitems的count，
是否引用越界。