Dim t As Table = Tables("增值税fa piao开piao登记")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = True
t.TreeVisible = True
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "所属部门_分公司"
g.TotalOn = "本次开piao金额,企业所得税预缴数,总公司管理费交费数,分公司管理费,收入金额,税额,预征增值税,附加税_城建税,附加税_教育费附加,附加税_地方教育附加,附加税_其他税费,附加税_合计,项目地已缴个税,项目地已缴企业所得税,项目地已缴印花税,差额,税费报销数"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "所属部门_区域公司"
g.TotalOn = "本次开piao金额,企业所得税预缴数,总公司管理费交费数,分公司管理费,收入金额,税额,预征增值税,附加税_城建税,附加税_教育费附加,附加税_地方教育附加,附加税_其他税费,附加税_合计,项目地已缴个税,项目地已缴企业所得税,项目地已缴印花税,差额,税费报销数"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "本次开piao金额,企业所得税预缴数,总公司管理费交费数,分公司管理费,收入金额,税额,预征增值税,附加税_城建税,附加税_教育费附加,附加税_地方教育附加,附加税_其他税费,附加税_合计,项目地已缴个税,项目地已缴企业所得税,项目地已缴印花税,差额,税费报销数"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
r = t.Rows(i,True)
If r.IsGroup '如果是分组行
If r.Level = -1 Then
Dim f As String = ""
Dim v As String = " 总计:" & vbcrlf & "记录数:" & t.Compute("Count(所属部门_分公司)",f)
r("所属部门_分公司") = v
ElseIf r.level = 0 Then
Dim f As String = "所属部门_区域公司 = '" & r("所属部门_区域公司") & "'"
Dim v As String = "记录数:" & t.Compute("Count(所属部门_分公司)",f)
r("所属部门_区域公司") = r("申请日期") & vbcrlf & v
ElseIf r.level = 1 Then
Dim sum As Double = 0
For j As Integer = i+1 To t.Rows.count(True)-1
If t.Rows(j,True).IsGroup Then
Exit For
Else
sum += 1
End If
Next
Dim v As String = " 记录数:" & sum
r("所属部门_分公司") = r("申请日期") & vbcrlf & v
End If
End If
Next
t.Grid.Tree.Show(1) '默认显示2级目录级数
加好友 
发短信
Post By：2018/5/20 15:46:00 [显示全部帖子]
此主题相关图片如下：qq截图20180520153802.png
