ListView中底部合计问题

迹无痕123

这是ListView中底部一个合计第8列的Label1total，我想再插入一个相同的Label1total，但是是合计第6列的，该怎么插入代码，试了好多种方法都不行，求各位大侠帮忙
Private Const coltotal As Integer = 8 '求和的列号(第几列),求和的结果显示在窗体下方的Lable1total。




Private Sub sumcol()    '对指定列进行求和并在底部显示。
    With ListView1
        If coltotal <= .ColumnHeaders.Count Then
            total = 0
            For i = 1 To .ListItems.Count
                If IsNumeric(.ListItems(i).SubItems(coltotal - 1)) Then
                    total = total + Val(.ListItems(i).SubItems(coltotal - 1))
                End If
            Next i
            Label1total.Caption = .ColumnHeaders(coltotal).Text & "合计  " & total
        Else
            Label1total.Caption = ""
        End If
    End With
End Sub