论坛 › 中转站 › ListView中底部合计问题

迹无痕123 发表于 2021-4-23 15:26

ListView中底部合计问题

这是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

查看完整版本: ListView中底部合计问题