ListView控件数据操作——添加表头和数据

w_dexu

于 2021-03-09 20:46:21 发布

阅读量4.6k

点赞数 3

本文链接：https://blog.youkuaiyun.com/w_dexu/article/details/107938012

版权

本文介绍了如何使用ListView控件进行数据操作，重点在于添加表头和数据的功能。通过提供的函数代码，可以方便地为控件添加数组或单行数据，并设置表头宽度。这是一个关于办公软件二次开发的教程，作者分享了相关经验和技术。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

ListView控件数据操作

一、添加表头和数据

在窗口显示数据时，经常会用到ListView这个控件，虽然也可以使用ListBox，但其功能还是比较弱一些，ListView相对用起来更顺手一些。下面的两个函数是给控件添加表头和数据的函数，贴出来供大家参考。

函数代码

给ListView添加数据，数据可以为数组或单行数据（逗号分隔）

Public Sub AddListViewData(ListViewName As Object, DateArr, Optional Header As Integer = 0, Optional AddData As Boolean = False)
'添加ListView数据，正常为数组，支持单行数据添加（逗号分隔）
'第一行数据为标题行时，Header应为1
'默认为替换数据，如果需要在原有数据基础上添加时，AddData应为True
Dim i As Integer, j As Integer
Dim DateCol() As String
Dim Itm As Object
Dim PartKey As String
If Not AddData Then ListViewName.ListItems.Clear
If IsArray(DateArr) Then
    For i = LBound(DateArr) + Header To UBound(DateArr)
        Set Itm = ListViewName.ListItems.Add()
        Itm.Text = DateArr(i, LBound(DateArr, 2))
        For j = LBound(DateArr, 2) + LBound(DateArr) To UBound(DateArr, 2)
            Itm.SubItems(j -

最低0.47元/天解锁文章