[求助]分季度汇总各明细科目的数据到LISTVIEW

zbs112

 

附件在23楼。

[此贴子已经被作者于2006-7-9 8:04:12编辑过]

zbs112

当我指定的汇总数据年度为2005年、科目类别是资产、汇总方向是借方、汇总月份区间是4月--6月时，结果要如上图所示（上图是人为指定的数据汇总）

[此贴子已经被作者于2006-7-5 22:04:15编辑过]

来生缘

没明白楼主的意思

zbs112

 

来生缘

有点明白了

在commandbutton1中根据复选框加入(修改)以下代码

With ListView1
        .LabelEdit = lvwManual
        .ColumnHeaders.Clear
        .ListItems.Clear
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
        .ColumnHeaders.Add , , "科目编码", 45
        .ColumnHeaders.Add , , "总账科目", 85
        .ColumnHeaders.Add , , "明细科目", 100
        .ColumnHeaders.Add , , "方向", 28
        .ColumnHeaders.Add , , "1月", 60
        .ColumnHeaders.Add , , "2月", 60
        .ColumnHeaders.Add , , "3月", 60
        .ColumnHeaders.Add , , "4月", 60
        .ColumnHeaders.Add , , "5月", 60
        .ColumnHeaders.Add , , "6月", 60
        .ColumnHeaders.Add , , "7月", 60
        .ColumnHeaders.Add , , "8月", 60
        .ColumnHeaders.Add , , "9月", 60
        .ColumnHeaders.Add , , "10月", 60
        .ColumnHeaders.Add , , "11月", 60
        .ColumnHeaders.Add , , "12月", 60
        .ColumnHeaders.Add , , "合计", 65
    End With

zbs112

同样当我指定的汇总数据年度为2005年、科目类别是资产、汇总方向是借方、汇总月份区间全部打勾（1月--3月、4月--6月、7月--9月、10月--12月）时，就是要求显示全部按季度合计的数据（中间插入合计列），请修改代码，谢谢！

zbs112

好象是下面这个思路，就是代码不知道改了。

1）科目编码、总账科目、明细科目、方向，先从ACCESS的KMB中COPY过来；

2）用一个汇总数据的程序主体，共汇总3个月、最后一列是合计这3个月的数据；

3）做一个判断选择，用一个循环语句进行2）步的操作循环。

以上的方法，应该是实现：季度按月数据汇总、后插入合计列。

来生缘

既然有思路就做下去啦,要相信自己的第一感

zbs112

已经试了一天了，没有结果呀！

关健的问题：代码自己不熟悉。

zbs112

这是会计的东东，相信很多人需要的！