如何向listview中添加数据，很简单的问题
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 中。
其他信息: 指定的参数已超出有效值的范围。”
应怎么解决？急 急
问题点数：0、回复次数：6Top
1 楼fankun（@BrokenWorld我是上帝的玩偶@）回复于 2003-09-07 05:02:37 得分 0
快点UP，支持楼主！Top
2 楼sakurako（看晨雾散开,你就是我一生的最爱...）回复于 2003-09-07 07:03:19 得分 0
up
不过对于vb.net
我也是新手一个
正在学习........Top
3 楼szch（灏然）回复于 2003-09-07 07:03:24 得分 0
ListView1里面如果没有ITEM,或少于四个ITEM肯定会出错的.Top
4 楼yaoyuhang（tom）回复于 2003-09-18 11:42:50 得分 0
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());
}
}Top
5 楼gwhong211（城市猎人）回复于 2003-09-18 12:34:55 得分 0
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 SubTop
6 楼MonkeyGG（猴子）回复于 2003-09-18 15:23:54 得分 0
你的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)Top
