主题：这样的表如何汇总

呵呵，有这等好事？抢答一个。

 

 

'变态代码如下：

Dim Tbl As Table = Tables("目标成本")
Dim g As Subtotalgroup
Dim i, j As Integer
Dim GrpStr As String
Tbl.SubtotalGroups.Clear()
Tbl.GroupAboveData = False
Tbl.TreeVisible = False
Tbl.SpillNode = True
GrpStr = "三级科目,二级科目,一级科目,*"
For i = 0 To GrpStr.Split(",").Length - 1
    g = New Subtotalgroup
    g.Aggregate = AggregateEnum.Sum
    g.GroupOn = GrpStr.Split(",")(i)
    g.TotalOn = "目标成本"
    g.Caption = iif(i = GrpStr.Split(",").Length - 1,"总计","{0} 小计")
    Tbl.SubtotalGroups.Add(g)
Next
Tbl.Subtotal()
For i = Tbl.grid.Rows.count -1 To 1 Step - 1
    If Tbl.grid.Rows(i).IsNode Then
        Select Case Tbl.grid.Rows(i).Node.level
            Case 1
                If Tbl.grid(i,1) = Tbl.grid(i-2,3) & " 小计" AndAlso Tbl.grid(i-1,1) = " 小计" Then
                    Tbl.grid.Rows.Remove(i)
                End If
            Case 2
                If Tbl.grid(i,1) = " 小计" Then
                    Tbl.grid.Rows.Remove(i)
                End If
        End Select
    End If
Next

 

'<<<<<<<代码本机测试通过

 

'<<<<<<<有图有真相

 

此主题相关图片如下：qq截图20130419142327.png

唐唐尸三摆手，高手,况现承诺,把帐号发在我的手机13911785858上,我给你打钱,呵呵,谢过老师了

这么快就中奖了