主题：关于统计列的问题

Dim t As Table = Tables("订单")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
'定义客户分组
g = New SubtotalGroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "客户" '分组列为客户
g.TotalOn = "数量,金额" '统计数量和金额列
g.Caption = "{0} 小计" '设置标题
t.SubtotalGroups.Add(g) '加到分组集合中

就是希望通过窗口筛选查询后，结果仍能保持汇总模式，列少的话指定列可以弄，列多且不固定的时候就不知道怎么弄了
此主题相关图片如下：11.jpg

Dim cs As String = ""
For Each c As Col In Tables("订单").cols
    If c.Visible AndAlso c.IsNumeric Then
        cs &= c.name & ","
    End If
Next
g.TotalOn = cs.trim(",")

OK，搞定了，谢谢大红袍。今天又解决了两个大问题

今天又碰到一个问题，如图所示，交叉统计的时候，”科目名称”作为垂直分组列，“借方发生”为统计列，我增加了一个表达式列“利润”，利润＝主营业务收入-主营业务成本-销售费用-财务费用+营业外收入，但代码里的列名是用“借方发生_5”这样的形式表示的，但当我新增一个科目的时候，发现原来的“借方发生_5”变成了“借方发生_4”或其他，利润的计算结果就出错了，如何获取固定的列名呢
此主题相关图片如下：123.jpg

循环每一列，把标题和列名存储在字典里，然后引用

 

Dim dic As new Dictionary(of String, String)
For Each c As Col  In Tables("表A").cols
    dic.add(c.Caption, c.name)
Next

msgbox(dic("第五列"))

好，先研究一下

哪里需要某列的列名，就直接写

 

dic("标题名")