数组写入listview

Public Sub AddHeaders(arr, ListView1 As Object)
'读入二维数组第一行写入到表头
'示例 AddHeaders arr,UserForm1.listview1
    Dim i&
    ListView1.ColumnHeaders.Clear
    For i = 1 To UBound(arr, 2)
        ListView1.ColumnHeaders.Add , , arr(1, i)
    Next
End Sub

   Public Sub AddList(arr, ListView1 As Object)
    '读入二维数组,将第二行开始每行依次写入到listview控件中
       Dim i&, j&, k&, brr
        With ListView1
            .ListItems.Clear               '清空列表
            For i = 2 To UBound(arr, 1)
                ListView1.ListItems.Add , , arr(i, 1)
                For j = 1 To UBound(arr, 2) - 1
                    ListView1.ListItems(i - 1).SubItems(j) = arr(i, j + 1)
                Next
            Next
        End With
   End Sub

'示例 AddHeaders arr,UserForm1.listview1

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值