如何向listview中添加数据，很简单的问题

[alexlcd1]

For i = 0 To intCountFollow - 1
ListView1.Items(1).SubItems.Add(Patient_Name_array(i))
ListView1.Items(2).SubItems.Add(Track_Visit_Date_array(i))
ListView1.Items(3).SubItems.Add(Track_Visit_Number_array(i))
Next i
当运行到添加时出错“
未处理的“System.ArgumentOutOfRangeException”类型的异常出现在 system.windows.forms.dll 中。

其他信息: 指定的参数已超出有效值的范围。”
应怎么解决？急 急

[fankun]

快点UP，支持楼主！

[sakurako]

up
不过对于vb.net
我也是新手一个
正在学习........

[szch]

ListView1里面如果没有ITEM,或少于四个ITEM肯定会出错的.

[iThinkPad]

你的listview中没有那么多行，所以会出现错误
对于多列的，可以先添加第一列的值，然后就可以添加其余的列
例如

Dim listview1 As New ListView()
listview1.View = View.Details
listview1.CheckBoxes = True
listview1.FullRowSelect = True
listview1.Left = 20
listview1.Top = 20
listview1.Width = 400
listview1.Height = 100

listview1.Columns.Add("用户名", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("级别", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("说明", 100, HorizontalAlignment.Left)

listview1.Items.Add("王五") '添加第一行的第一列
listview1.Items(0).Checked = True
listview1.Items(0).SubItems.Add("用户") '添加第一行的第二列
listview1.Items(0).SubItems.Add("数据浏览") '添加第一行的第三列

............

Me.Controls.Add(listview1)

[yaoyuhang]

for(int i=0;i<myDT.rows.count;i++)//循环mydt行
{
ListViewItem lisvitemItem=new ListViewItem(myDT.Rows[iI]["cApplyFormCode"].ToString().Trim());//创建listViewItem并赋值申请单编号

lisvBill.Items.Add(lisvitemItem);
for(int j=0;j<myDT.columns.count;j++)//循环mydt列
{
lisvBill.items[iI].subItems.add(myDT.rows[i][j].toString());
}

}

[gwhong211]

Do While Not Rs.EOF
'找出对应行
Found = False
For Each TheItem In LstvMain.Items
If TheItem.SubItems(0).Text = Rs.Fields("Xqmc").Value & "" Then
Found = True : Exit For
End If
Next
If Not Found Then
TheItem = New ListViewItem() : TheItem.SubItems(0).Text = Rs.Fields("Xqmc").Value
TheItem.SubItems.Add("0")
TheItem.SubItems.Add("0")
TheItem.SubItems.Add("0")
TheItem.SubItems.Add("0")
LstvMain.Items.Add(TheItem)
End If
'zhao lie
TheCol = 7
Select Case Rs.Fields("Whcd").Value & ""
Case "大学" : TheCol = 1
Case "高中" : TheCol = 2
Case "小学" : TheCol = 3
Case "其它" : TheCol = 4
End Select
TheItem.SubItems(TheCol).Text = Val(TheItem.SubItems(TheCol).Text) + Rs.Fields("WhcdGs").Value
Rs.MoveNext()
Loop
Rs.Close()
End Sub