主题：合计行问题

想请教老师一个问题：我不想用其它临时表，只想在当前数据表最末一行：增加合计行，统计除姓名列外的各列数据之和。不知如何操作？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:222222222222222222.table

Dim r As Row = CurrentTable.Rows.AddNew()
r("正课")  = CurrentTable.Compute("Sum(正课)")  
..........
.........

为何不直接用汇总？

直接汇总是特简便的，但总感觉又多一张与“流水表”同样的表格，似多余，故作它念。

直接在这个表中汇总怎么可能会多一张表呢？

如果有DateTable.Compute("Sum(正课),sum(辅导)，sum(补课）")   或DateTable.Compute("Sum(正课，辅导，补课......)")之类的函数就好了。  

感觉好奇怪，下面这样有什么不妥吗？

Dim t As Table = Tables("流水表")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False

g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "正课,辅导,补课,甘孜班_守班,甘孜班_补课,甘孜班_辅导,甘孜班_巡查"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()

是我错了，在学习中一直以为统计数据类是另创表格，看来还得更深入学习才是。

哈，最简单的你倒忽略了。

所有设计已完成，请C老师斧正，谢谢！详见消息。