共12 条记录, 每页显示 10 条, 页签: [1] [2]

标题：合计行问题

1楼

xl 发表于：2009/12/26 19:49:00

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:222222222222222222.table

[此贴子已经被作者于2009-12-26 19:49:23编辑过]

2楼

mr725 发表于：2009/12/26 20:05:00

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

3楼

czy 发表于：2009/12/26 21:42:00

为何不直接用汇总？

4楼

xl 发表于：2009/12/26 22:11:00

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

5楼

czy 发表于：2009/12/26 22:14:00

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

6楼

xl 发表于：2009/12/26 22:14:00

以下是引用mr725在2009-12-26 20:05:00的发言：
Dim r As Row = CurrentTable.Rows.AddNew()
r("正课") = CurrentTable.Compute("Sum(正课)")
..........
.........

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

7楼

czy 发表于：2009/12/26 22:30:00

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

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()

8楼

xl 发表于：2009/12/26 23:08:00

以下是引用czy在2009-12-26 22:30:00的发言：
感觉好奇怪，下面这样有什么不妥吗？

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

t.Subtotal()

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

9楼

czy 发表于：2009/12/26 23:13:00

以下是引用xl在2009-12-26 23:08:00的发言：

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

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

10楼

xl 发表于：2009/12/26 23:20:00

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

共12 条记录, 每页显示 10 条, 页签: [1] [2]