呵呵,有这等好事?抢答一个。
'变态代码如下:
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
[此贴子已经被作者于2013-4-19 14:25:21编辑过]