主题：汇总统计

Dim t As Table = Tables("融资组合查询_table1")
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 = "还款金额_*"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "*"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()

 

 

 窗口中形成的统计表，列数不固定 ，如何对所有列实现分组统计 要的就是汇总模式的效果（有目录树，统计分组在上）

求教！

for each c as col in t.cols

Dim t As Table = Tables("融资组合查询_TABLE1")
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 = "备案单位"
For Each c As Col In t.cols
   If c.name.StartsWith("还款金额_") Then
        g.TotalOn =c.name
   End If
Next

'g.TotalOn = "还款金额_1,还款金额_2,还款金额_3,还款金额_4,还款金额_5,还款金额_6,还款金额_7,还款金额_8,还款金额_9,还款金额_10,还款金额_11,还款金额_12,合计"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
For Each c1 As Col In t.cols
   If c1.name.StartsWith("还款金额_") Then
        g.TotalOn =c1.name
   End If
Next
'g.TotalOn = "还款金额_1,还款金额_2,还款金额_3,还款金额_4,还款金额_5,还款金额_6,还款金额_7,还款金额_8,还款金额_9,还款金额_10,还款金额_11,还款金额_12,合计"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()

 

 

 

未报错，但结果不对

 试试这样

 

Dim t As Table = Tables("融资组合查询_TABLE1")
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 = "备案单位"
Dim TotalOn As String = ""
For Each c As Col In t.cols
   If c.name.StartsWith("还款金额_") Then
        totalOn &= c.name & ","
   End If
Next
g.TotalOn = TotalOn & "合计"

'g.TotalOn = "还款金额_1,还款金额_2,还款金额_3,还款金额_4,还款金额_5,还款金额_6,还款金额_7,还款金额_8,还款金额_9,还款金额_10,还款金额_11,还款金额_12,合计"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
For Each c As Col In t.cols
   If c.name.StartsWith("还款金额_") Then
        totalOn &= c.name & ","
   End If
Next
g.TotalOn = TotalOn & "合计"
'g.TotalOn = "还款金额_1,还款金额_2,还款金额_3,还款金额_4,还款金额_5,还款金额_6,还款金额_7,还款金额_8,还款金额_9,还款金额_10,还款金额_11,还款金额_12,合计"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()

结果对了　谢了