初学vb.net，请教一下关于listview控件显示数组数据的问题，谢谢

[sanmujunace]

有一个数组 arrFuhebiao，行数为Fuhe123FinalNum，列数为ColNum。我想把这个数组的数据以表格的型式显示在程序界面上，用的是listview控件，代码如下，表头能正常显示，其他数据显示不了，请问应该如何修改啊？谢谢。刚刚开始学net，问的问题有点肤浅，实在不好意思。

Dim Items As ListViewItem
With ListView1
.Columns.Add("序号", 50, HorizontalAlignment.Center)
.Columns.Add("负荷名称", 200, HorizontalAlignment.Center)
.Columns.Add("配电箱编号", 100, HorizontalAlignment.Center)
.Columns.Add("设备容量", 80, HorizontalAlignment.Center)
.Columns.Add("需要系数", 80, HorizontalAlignment.Center)
.Columns.Add("计算容量", 80, HorizontalAlignment.Center)
.Columns.Add("功率因数", 80, HorizontalAlignment.Center)
.Columns.Add("计算电流", 80, HorizontalAlignment.Center)
.Columns.Add("下级配电箱整定值", 50, HorizontalAlignment.Center)
.Columns.Add("建议变电所整定值", 50, HorizontalAlignment.Center)
.Columns.Add("动照瞬时整定值", 50, HorizontalAlignment.Center)
.Columns.Add("动照短延时整定值", 50, HorizontalAlignment.Center)
.Columns.Add("出线方式", 50, HorizontalAlignment.Center)
.Columns.Add("馈线电缆截面", 100, HorizontalAlignment.Center)
.Columns.Add("馈线电缆长度", 50, HorizontalAlignment.Center)
.Columns.Add("电气火灾监控模块", 100, HorizontalAlignment.Center)
.Columns.Add("负荷等级", 50, HorizontalAlignment.Center)
.Columns.Add("负荷类型", 50, HorizontalAlignment.Center)
.Columns.Add("是否切非", 50, HorizontalAlignment.Center)
.Columns.Add("电源引入方式", 200, HorizontalAlignment.Center)
.Columns.Add("母线段", 50, HorizontalAlignment.Center)
.Columns.Add("电缆载流量", 50, HorizontalAlignment.Center)
.Columns.Add("长延时整定值", 50, HorizontalAlignment.Center)
.Columns.Add("长延时调整整定值", 50, HorizontalAlignment.Center)
.Items.Clear() '清空            
.View = View.Details '用报表模式显示            
.FullRowSelect = True '整行选择            
.ContextMenuStrip = ContextMenuStrip '指定右键菜单的控件
For i = 1 To Fuhe123FinalNum
For j = 0 To ColNum
ListView1.Items(i).SubItems(j).Text = arrFuhebiao(i, j)
Next j
Next i
End With
Stop
End Sub

[啥都不懂所以不当程序猿]

你试试把循环里面的Listview1给删了

[sanmujunace]

引用 1 楼 啥都不懂所以不当程序猿 的回复:

你试试把循环里面的Listview1给删了

谢谢。
For i = 1 To Fuhe123FinalNum
Dim Items As New ListViewItem
Items.Text = arrFuhebiao(i, 0)
Items.Checked = True
For j = 1 To ColNum + 3
Items.SubItems.Add(arrFuhebiao(i, j))
Next j
ListView1.Items.Add(Items)
Next i
代码按这样修改，就行了。

[啥都不懂所以不当程序猿]

嗯哼我也是个半吊子，正在学习VB.NET，这个控件没用过，哈哈