- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]交叉表的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106725)
-- 发布时间：2017/9/14 16:35:00
-- [求助]交叉表的问题
请问，
我想做一个交叉统计表，然后在统计结果里面再指定的列再加插几列，用于核对，
在excel里面是我们之前用excel做的效果。
我想要的效果如下图：
此主题相关图片如下：2.png
但是交叉统计后的结果如下图：
此主题相关图片如下：1.png
下面是我原来用excel做的
Dim g As New CrossTableBuilder("统计表1", DataTables("WorkRecordSec"), "[StyleID]=\'17-023\'")
g.HGroups.AddDef("StyleID")
g.HGroups.AddDef("MakeDate", "月")
g.HGroups.AddDef("MakeDate", DateGroupEnum.Day, "日")
g.VGroups.AddDef("WPID")
g.Totals.AddDef("Qty", "Qty")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 0
g.Filter = "[StyleID]=\'17-023\'"
g.FromServer = True
g.Build()
MainTable = Tables("统计表1")
[此贴子已经被作者于2017/9/14 16:39:28编辑过]
-- 发布时间：2017/9/14 16:41:00
--
表述的可能有点混乱，看看excel的例子清楚些，
exel里面蓝色字体是自动汇总出来的数据，
[此贴子已经被作者于2017/9/14 16:42:18编辑过]
-- 发布时间：2017/9/14 16:56:00
--
上.table
-- 发布时间：2017/9/14 17:07:00
-- 回复：（y2287958）上.table
能指导一下吗？
-- 发布时间：2017/9/14 17:20:00
--
参考代码
Dim g As New CrossTableBuilder("统计表1", DataTables("表C"))
g.HGroups.AddDef("日期",DateGroupEnum.none)
g.VGroups.AddDef("类型")
g.Totals.AddDef("数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()
Dim t As Table = Tables("统计表1")
For i As Integer = 0 To t.cols.count-1
If t.cols(i).name.contains("数量_") Then
Dim x As Integer = t.cols(i).name.split("_")(1)
Dim dc = t.DataTable.DataCols.Add("添加_" & x, Gettype(Double), "isnull(数量_" & x & ",0)-isnull(数量_1,0)", "小计")
t.cols(dc.name).Move(i+1)
End If
Next
For Each r As Row In t.rows
next
MainTable = t
-- 发布时间：2017/9/14 18:28:00
--
此主题相关图片如下：3.png
请问，过滤条件这里怎么过滤重复值？
-- 发布时间：2017/9/14 18:32:00
--
回复6楼，要写代码
http://www.foxtable.com/webhelp/scr/1523.htm