[求助]自定义汇总模式的设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

新手求助：

此主题相关图片如下：无标题.jpg

如附件图片，这是汇总模式下的目录树样式，分别根据班次以及当班班长进行汇总统计，代码如下：

Dim t As Table = Tables("产量统计")

Dim g As SubtotalGroup

t.SubtotalGroups.Clear()

t.GroupAboveData = True

t.TreeVisible = True

t.SpillNode = True

g = New SubtotalGroup

g.Aggregate = AggregateEnum.Average

g.GroupOn = "班次"

g.TotalOn = "总线效率"

g.Caption = "{0} 效率"

t.SubtotalGroups.Add(g)

g = New SubtotalGroup

g.Aggregate = AggregateEnum.Average

g.GroupOn = "当班班长"

g.TotalOn = "总线效率"

g.Caption = "{0} 效率"

t.SubtotalGroups.Add(g)

t.Subtotal()

Dim r As Row

For i As Integer = 0 To t.Rows.Count(True) - 1

r = t.Rows(i,True)

If r.IsGroup

Dim f As String = "班长 = '" & r("当班班长") & "'"

Dim v As String = " 当班次数:" & t.Compute("Count(班次)",f)

v = v & " 总体效率:" & t.Compute("Average(总线效率)",f)

r("当班班长") = "班长:" & r("当班班长") & v

End If

想达到的效果是在汇总行显示出每个班长早、中、夜班分别上了多少次，上各个班次时的平均效率。如图所示标题倒是能显示了，但班长名字、班次次数以及效率均不能显示出来，请问代码需要怎样修改？

另外由于有时候一个班会有两个班长当班，所以当班班长列设为了多值字段，统计时两人当班的能否分别算入各自的汇总效率中？（网上看了不少代码都是两人各按50%算，而我则是想两人都各是按100%算入自己的汇总中）

[此贴子已经被作者于2016/12/5 23:09:29编辑过]

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

文件在这里，谢谢。另外，汇总模式下如何使用排序功能？

[此贴子已经被作者于2016/12/6 10:29:48编辑过]

稍微调整了下代码，现在成这样了：

Dim bz As String

Dim r As Row

For i As Integer = 0 To t.Rows.Count(True) - 1

r = t.Rows(i,True)

If r.IsGroup

Dim n As String = r(0).split(" ")(0)

Dim f As String

If n = "早班" OrElse n = "中班" OrElse n = "夜班" Then

f = "当班班长 = '" & bz & "' and 班次='" & n & "'"

Else

bz = n

f = "当班班长 = '" & bz & "'"

End If

Output.Show(f)

Dim v As String = " 当班次数:" & t.Compute("Count(班次)",f)

v = v & " 总体效率:" & Format(t.Compute("Avg(总线效率)",f),"0.00")

r("产品") = r("当班班长") & v

End If

不过不清楚怎样保存自定义设置，只能每次重开文件都要重新输命令。

原来如此，已经创建好了，谢谢。

现在还剩几个小问题没解决：

1、当2人共同上一个班时的效率想各自算在每个人自己身上，但不是各取一半计算而是都取100%来计算。

2、当“产品”列列宽较小时，只有第一行的汇总信息能完整显示出来，其他汇总行都只能显示一部分。或者说本来想将汇总信息左端对齐到“班次日期”列的，但由于刚才的代码班长名字不能显示出来，所以才调整成现在的样子。

3、由于已经自定义了汇总信息，那“总线效率”列的统计要如何隐藏掉呢？

[此贴子已经被作者于2016/12/6 11:37:01编辑过]

可能是我没表述清楚。

1、这个问题解决不了也没有什么影响，感谢回复。

2、按照 r("当班班长") = "班长:" & r("当班班长") & v这一段代码，显示出来的是

（班长：当班次数xx 总体效率：xx）而并非预想中的（班长：xx 当班次数xx 总体效率：xx）

3、参考教程文件中的例子
图片点击可在新窗口打开查看

此主题相关图片如下：无标题.jpg

自定义汇总模式后，自动汇总了金额，而汇总行中的“金额”列不再显示数据，但现在自定义后，“总线效率”列还有显示。

明白了谢谢，那第二个问题呢？

按照 r("当班班长") = "班长:" & r("当班班长") & v这一段代码，显示出来的是

（班长：当班次数xx 总体效率：xx）而并非预想中的（班长：xx 当班次数xx 总体效率：xx）

非常感谢不厌其烦地解答，边问边学，最终把代码调整为

Dim bz As String

Dim r As Row

For i As Integer = 0 To t.Rows.Count(True) - 1

r = t.Rows(i,True)

If r.IsGroup

Dim n As String = r(0).split(" ")(0)

Dim f As String

If n = "早班" OrElse n = "中班" OrElse n = "夜班" Then

f = "当班班长 = '" & bz & "' and 班次='" & n & "'"

Else

bz = n

f = "当班班长 = '" & bz & "'"

End If

Dim v As String = " 当班次数:" & t.Compute("Count(班次)",f)

v = v & " 平均效率:" & Format(t.Compute("Avg(总线效率)",f),"0.00")

r("班次日期") = n & v

r("总线效率") = Nothing

End If

得到了预想中的效果，再次表示感谢。

主题：[求助]自定义汇总模式的设置