窗体ListView1报表第一列咋去重显示？

wowo000

搞不出来了，窗体ListView1报表第一列咋去重显示？论坛里的那位老师帮俺斧正斧正，先谢谢！！！！

蓝桥玄霜

For i = 1 To m
        Set Item = ListView1.ListItems.Add
          Item.Text = k(i - 1)    '这句修改

wowo000

尊敬的蓝桥玄霜老师：谢谢您！！！这句ListView1横向求和
Item.SubItems(13) = Format(brr(i, 1) + brr(i, 2) + brr(i, 3) + brr(i, 4) + brr(i, 5) + brr(i, 6) + brr(i, 7) + brr(i, 8) + brr(i, 9) + brr(i, 10) + brr(i, 11) + brr(i, 12), "#,##0.00")可以简化吗？？恳请斧正！

蓝桥玄霜

也可以改为：
hj = 0
        For j = 1 To 12
            hj = hj + brr(i, j)
        Next
        Item.SubItems(13) = Format(hj, "#,##0.00")

wowo000

尊敬的蓝桥玄霜老师：谢谢您！！！还有个请求，下面的代码俺想在每月下最后一行都合计      
With ListView1
        For j = 1 To .ListItems.Count
             Hj = Hj + Val(.ListItems(j).SubItems(1)) '月总
        Next
           With Item
            .Item.Text = "合计："
            .SubItems(1) = Hj
           End With
        End With
应该咋改？恳请您弄弄。第一列最后一行显示“合计”，一月到到最右边的合计列之最后一行都有合计计算结果。

wowo000

尊敬的蓝桥玄霜老师：俺弄了一中午，算是弄出来了，如下      
Dim  CHj As Double ,n, s, t, CHj13 As Double
        With ListView1
        For j = 1 To .ListItems.Count
             CHj1 = CHj1 + Val(.ListItems(j).SubItems(1)) '月总
             CHj2 = CHj2 + Val(.ListItems(j).SubItems(2)) '月总
             CHj3 = CHj3 + Val(.ListItems(j).SubItems(3)) '月总
             CHj4 = CHj4 + Val(.ListItems(j).SubItems(4)) '月总
             CHj5 = CHj5 + Val(.ListItems(j).SubItems(5)) '月总
             CHj6 = CHj6 + Val(.ListItems(j).SubItems(6)) '月总
             CHj7 = CHj7 + Val(.ListItems(j).SubItems(7)) '月总
             CHj8 = CHj8 + Val(.ListItems(j).SubItems(8)) '月总
             CHj9 = CHj9 + Val(.ListItems(j).SubItems(9)) '月总
             CHj10 = CHj10 + Val(.ListItems(j).SubItems(10)) '月总
             CHj11 = CHj11 + Val(.ListItems(j).SubItems(11)) '月总
             CHj12 = CHj12 + Val(.ListItems(j).SubItems(12)) '月总
             CHj13 = CHj13 + Format(.ListItems(j).SubItems(13), "#,##0.00") '总计
        Next
        End With
        Set Item = ListView1.ListItems.Add
        Item.Text = "合计"
        Item.SubItems(1) = CHj1 '月数合计
        Item.SubItems(2) = CHj2 '月数合计
        Item.SubItems(3) = CHj3 '月数合计
        Item.SubItems(4) = CHj4 '月数合计
        Item.SubItems(5) = CHj5 '月数合计
        Item.SubItems(6) = CHj6 '月数合计
        Item.SubItems(7) = CHj7 '月数合计
        Item.SubItems(8) = CHj8 '月数合计
        Item.SubItems(9) = CHj9 '月数合计
        Item.SubItems(10) = CHj10 '月数合计
        Item.SubItems(11) = CHj11 '月数合计
        Item.SubItems(12) = CHj12 '月数合计
        Item.SubItems(13) = Format(CHj13, "#,##0.00") '总计
但，这段代码如何简化？？？恳请您斧正！！！

wowo000

所有的CHj,SubItems() 里带数字的用变量代替。

wowo000

上面的代码，哪位老师帮俺简化简化？？！！！所有的CHj和SubItems() 里带数字的用变量代替。