Dim g As Subtotalgroup
Dim cs As String = ""
For Each c As Col In Tables("统计分析_Table1").cols
If c.IsNumeric AndAlso c.Name <> "年份" AndAlso c.Name <> "月份" Then
cs &= c.name & ","
End If
Next
t.SubtotalGroups.Clear()
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "款式季度"
g.TotalOn = cs.trim(",")
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "工厂"
g.TotalOn = cs.trim(",")
g.Caption = "{0} 合计"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.sum
g.GroupOn = "*"
g.TotalOn = cs.trim(",")
g.Caption = "总计"
t.SubtotalGroups.Add(g)
Dim groups As List(of String) = DataTables("统计分析_Table1").GetValues("款式季度")
For Each grp As String In groups
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
Next
t.Subtotal()
Dim cnt As Integer = Tables("统计分析_Table1").Rows.Count(True) - groups.count
For Each group As String In groups
Tables("统计分析_Table1").Rows(cnt,True)("款式季度") = group
Tables("统计分析_Table1").Rows(cnt,True)(dic("" & nf1 & "_数量")) = Tables("统计分析_Table1").Compute("sum(dic(" & nf1 & "_数量))","款式季度 = '" &group & "'")
cnt = cnt +1
Next
发现取到的是空值，会是什么原因
此主题相关图片如下：qq图片20200501091912.png
加好友 
发短信
Post By：2020/5/1 9:24:00 [只看该作者]
