ListView控件数据操作
五、给ListView中的列数据求和
LIstView显示数据完成后,一般情况下还需要在最后一行对某些列做一个汇总,下面的函数就很好的完成了这个功能。
函数代码
给ListView添加数据,数据可以为数组或单行数据(逗号分隔)
Public Function SumLvCol(列表 As Object, 列表列, Optional WriLv As Boolean = False, Optional 分组 = Null)
Dim i As Integer
Dim j As Integer
Dim sp() As String
Dim dic As Object
Dim lc As Integer
Dim arr()
With 列表
Set dic = CreateObject("Scripting.Dictionary")
dic.CompareMode = vbTextCompare '采用文本的比较方式,不分大小写
For i = 1 To .ColumnHeaders.Count
dic(.