- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这样交叉统计如何实现 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=67140)
-- 发布时间：2015/4/18 23:32:00
-- 这样交叉统计如何实现
怎样实现 A－B,谢谢
此主题相关图片如下：无标题.png
-- 发布时间：2015/4/19 11:08:00
--
答案在这里：
http://www.foxtable.com/help/topics/0679.htm
-- 发布时间：2015/4/20 0:48:00
--
弄不成，老大， 帮帮忙。
-- 发布时间：2015/4/20 8:39:00
--
弄不成就上例子吧.
-- 发布时间：2015/4/20 8:54:00
--
BIN版，帮忙看下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.foxdb |
-- 发布时间：2015/4/20 9:01:00
--
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("年龄段", Gettype(String), 32)
Dim ahs As List(of String) = DataTables("表A").GetValues("爱好")
For Each s As String In ahs
dtb.AddDef(s, Gettype(Double))
Next
dtb.Build()
Dim r As Row = Tables("统计").AddNew
r("年龄段")="22-33"
For Each s As String In ahs
r(s)=DataTables("表A").Compute("sum(金额)","年龄>=22 and 年龄<=33 and 爱好=\'" & s & "\'")
Next
r = Tables("统计").AddNew
r("年龄段")="45以上"
For Each s As String In ahs
r(s)=DataTables("表A").Compute("sum(金额)","年龄>=45 and 爱好=\'" & s & "\'")
Next
MainTable= Tables("统计")
-- 发布时间：2015/4/20 10:00:00
--
谢谢BIN版，统计表出来后列顺序是打球，旅游，下棋，可否按特定顺序走，旅游，打球、下棋
[此贴子已经被作者于2015/4/20 10:09:22编辑过]