- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教能不能实现汇总打钩行的数据到指定位置? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103013)
-- 发布时间：2017/6/29 9:55:00
-- 请教能不能实现汇总打钩行的数据到指定位置?
此主题相关图片如下：qq图片20170629095211.png
如图所示,如果我想在统计打钩行的金额到箭头对应位置应该怎么设置?
-- 发布时间：2017/6/29 10:08:00
--
参考
http://www.foxtable.com/webhelp/scr/1964.htm
-- 发布时间：2017/6/29 10:09:00
--
不会做上传具体foxtable例子。
-- 发布时间：2017/6/29 11:06:00
--
已上传,请教,如何在项目开支明细表里面,以项目名称分组,分别统计组内的打钩项的金额各是多少.
-- 发布时间：2017/6/29 12:08:00
--
没看到你上传的项目。请使用ie浏览器，像上传图片那样上传具体项目。
[此贴子已经被作者于2017/6/29 12:08:17编辑过]
-- 发布时间：2017/6/29 14:58:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:项目管理.rar |
-- 发布时间：2017/6/29 15:53:00
--
Dim t As Table = Tables("项目开支明细")
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.TotalOn = ""
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()
For i As Integer = 0 To t.Rows.count(True)-1
Dim r As Row = t.Rows(i, True)
If r.IsGroup Then
r("开支金额") = t.Compute("sum(开支金额)", "项目名称 = \'" & r("项目名称") & "\'")
r("项目来源") = t.Compute("sum(开支金额)", "项目名称 = \'" & r("项目名称") & "\' and 项目来源=true")
r("项目负责人") = t.Compute("sum(开支金额)", "项目名称 = \'" & r("项目名称") & "\' and 项目负责人=true")
End If
Next