Foxtable(狐表)用户栏目专家坐堂 → 如果引用组合统计的分析结果进行计算


  共有2206人关注过本帖树形打印复制链接

主题:如果引用组合统计的分析结果进行计算

帅哥哟,离线,有人找我吗?
石四
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
如果引用组合统计的分析结果进行计算  发帖心情 Post By:2016/3/4 9:30:00 [只看该作者]

两组统计结果combine,有两个占比,怎么引用?

 

Dim Filter As String
Filter = "部门系数 Is Not Null "
DataTables("员工基本信息").LoadFilter = Filter
DataTables("员工基本信息").Load()

Dim Filter0 As String
Filter0 = "考勤日期 >= #1/1/2016# And 考勤日期 <= #1/31/2016# "
DataTables("部门考勤").LoadFilter = Filter0
DataTables("部门考勤").Load()

Dim g1 As New GroupTableBuilder("统计表1", DataTables("部门考勤"))
Dim dt1 As fxDataSource
g1.Groups.AddDef("部门")
g1.Groups.AddDef("人员编号")
g1.Totals.AddDef("出勤")
g1.GroupProportion = True
dt1 = g1.BuildDataSource()

Dim g2 As New GroupTableBuilder("统计表2", DataTables("员工基本信息"))
Dim dt2  As fxDataSource
g2.Groups.AddDef("部门")
g2.Groups.AddDef("人员编号")
g2.Totals.AddDef("工作量比重")
g2.GroupProportion = True
dt2 = g2.BuildDataSource()

Dim nms As String() = {"部门","人员编号"} '指定连接列
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
dt1.Show("统计表1") '显示统计结果

Tables("工资核算_Table5").DataSource = dt1 '将统计结果绑定到Table
With DataTables("工资核算_Table5").DataCols 
    .Add("系数",Gettype(Double), "[占比] +[占比] / 2")
End With

 

这样操作行不通!

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/4 9:38:00 [只看该作者]

 你for each看一下列名

 

For Each c As Col In Tables("工资核算_Table5").cols
    output.show(c.Caption & " " & c.name)
Next

 


 回到顶部
帅哥哟,离线,有人找我吗?
石四
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2016/3/4 10:10:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160304100918.png
图片点击可在新窗口打开查看

 

看到了


 回到顶部
帅哥哟,离线,有人找我吗?
石四
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2016/3/4 10:20:00 [只看该作者]

OK!

 回到顶部