Question

vb listview 添加“列”数据的问题

Private Sub Form_Load()
Dim a() As Integer
Dim b() As Integer

For i = 0 To 5 Step 1
ReDim Preserve a(i)
a(i) = i
Next

For i = LBound(a) To UBound(a)
’要向listview1第一列填充a(i),代码？？？？？
Next

For i = 0 To 10 Step 1
ReDim Preserve b(i)
b(i) = i
Next

For i = LBound(b) To UBound(b
’要向listview1第一列追加填充b(i)数组,代码？？？？？
Next

End Sub

请问大神们如何写呢？？？

Answer 1

本节视频我们来聊一聊如何添加数据表的行与列。Treelab 官网：www.treelab.com.cn

Answer 2

Private Sub Form_Load()
Dim a() As Integer
Dim b() As Integer
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "A", 1000
ListView1.ColumnHeaders.Add , , "B", 1000
For i = 0 To 5 Step 1
ReDim Preserve a(i)
a(i) = i
Next
For i = LBound(a) To UBound(a)
'要向listview1第一列填充a(i),代码？？？？？
ListView1.ListItems.Add , , a(i)
Next
For i = 0 To 10 Step 1
ReDim Preserve b(i)
b(i) = i
Next
For i = LBound(b) To UBound(b)
'要向listview1第一列追加填充b(i)数组,代码？？？？？
ListView1.ListItems.Add , , b(i)
Next

End Sub