- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何实现分组统计数据的转置，并按一定顺序填充？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79803)
-- 发布时间：2016/1/9 13:21:00
-- 如何实现分组统计数据的转置，并按一定顺序填充？
表A通过分组统计功能，已经实现了：评价对象，根据评价人计数的分组
此主题相关图片如下：1.png
此主题相关图片如下：2.png
想实现：对分组统计后的结果，反过来把对应的评价人，处理成在一个备注字段里，并按一定的顺序进行排列，如何实现？
此主题相关图片如下：3.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:转置1.foxdb |
[此贴子已经被作者于2016/1/9 13:22:37编辑过]
-- 发布时间：2016/1/9 14:15:00
--
自己定下，应该是用select，研究不出来。。。
-- 发布时间：2016/1/9 14:35:00
--
For Each dr As Row In Tables("欲实现样式").Rows
dr("评价人") = DataTables("表A").GetComboListString("评价人", "评价对象 = \'" & dr("评价对象") & "\'","评价人排序号").Replace("|",",")
Next
-- 发布时间：2016/1/9 15:25:00
--
感谢！
用GroupTableBuilder能否一次性生成这个表？
貌似没有增加文本行的参数啊！！！
Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))
g.Groups.AddDef("批号")
g.Groups.AddDef("评价对象")
g.AddDef("评价人备注", GetType(String), 255) ————————————————》这句是错误的
g.Totals.AddDef("评价人", AggregateEnum.Count)
g.Build()
For Each dr As Row In Tables("统计表1").Rows
dr("评价人备注") = DataTables("表A").GetComboListString("评价人", "评价对象 = \'" & dr("评价对象") & "\'","评价人排序号").Replace("|",",")
Next
MainTable = Tables("统计表1")
-- 发布时间：2016/1/9 16:06:00
--
增加表列参考http://www.foxtable.com/help/topics/1428.htm