- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [原创]汇总行数值为所有子行的乘积，代码怎么写？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92938)
-- 发布时间：2016/11/16 18:23:00
-- [原创]汇总行数值为所有子行的乘积，代码怎么写？
求执行率的。
假设某个产品一共10个工序，一个操作工序一个执行率（百分比表示），汇总行要求得产品的执行率= 10个工序执行率的乘积。请教汇总代码怎么写。
-- 发布时间：2016/11/16 18:54:00
--
上传有数据的具体例子说明问题。
-- 发布时间：2016/11/17 14:37:00
-- 回复：（有点青） 上传有数据的具体例子说明问题...
管理项目1中的参考数据，表A增加汇总行，效果如附件“执行率.png”，执行率总计=各工序执行率的乘积，即
| 66.00% * 99% * 98% * 90% * 88% * 95% * 94% * 97% =43*93% |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
此主题相关图片如下：执行率.png
-- 发布时间：2016/11/17 15:38:00
--
参考代码
Dim t As Table = Tables("表A")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.Caption = "汇总率总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim sum As Double = 1
For i As Integer = 0 To t.Rows.Count(True)-1
Dim r As Row = t.Rows(i, True)
If r.IsGroup Then
r("执行率") = sum
Else
sum = sum * iif(r.IsNull("执行率"), 1, r("执行率"))
End If
Next
-- 发布时间：2016/11/17 16:59:00
-- 回复：（有点青）参考代码 Dim t As Table =...
完全OK，万分感谢！