html5显示数组listview,数组汇总后怎么显示在listview控件中？？ 附加窗体及代码...

问题：

依照月份汇总后显示在ListView1控件中。？？

-. 数组中的arr1值怎么移给ListView1控件中显示出来？

下面写了代码但是显示错误！！

Private Sub CommandButton1_Click()

Dim arr1()

Dim ITM As ListItem

Dim iRow As Integer

arr = [a2:c10]

For i = 1 To UBound(arr)

ReDim Preserve arr1(1 To 3, 1 To n + 1)

For j = 1 To UBound(arr1, 2)

If arr1(1, j) = arr(i, 1) Then

arr1(3, j) = arr1(3, j) + arr(i, 3)

GoTo 503

End If

Next

n = n + 1

arr1(1, n) = arr(i, 1)

arr1(2, n) = arr(i, 2)

arr1(3, n) = arr(i, 3)

503:

Next

With Sheets("sheet8")

ListView1.ColumnHeaders.Add 1, , .Cells(1, 1), ListView1.Width * 0.15

ListView1.ColumnHeaders.Add 2, , .Cells(1, 2), ListView1.Width * 0.1, lvwColumnCenter

ListView1.ColumnHeaders.Add 3, , .Cells(1, 3), ListView1.Width * 0.15, lvwColumnCenter

ListView1.View = lvwReport

ListView1.Gridlines = True

Set ITM = ListView1.ListItems.Add()

ITM.Text = .Cells(i, 1)

ITM.SubItems(1) = arr1(1, n)

ITM.SubItems(2) = arr1(2, n)

ITM.SubItems(3) = arr1(3, n)

End With

End Sub

[img][/img]

捕获.PNG

(58.82 KB, 下载次数: 2)

2014-6-8 13:00 上传