Foxtable(狐表)用户栏目专家坐堂 → 求每个品种的总共设定值,总共实际值,总共误差值


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

主题:求每个品种的总共设定值,总共实际值,总共误差值

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


加好友 发短信
等级:幼狐 帖子:51 积分:494 威望:0 精华:0 注册:2020/2/21 10:32:00
求每个品种的总共设定值,总共实际值,总共误差值  发帖心情 Post By:2020/2/21 20:51:00 [只看该作者]

在窗口表中如何做一个按钮计算出在时间范围内每个品种的总共设定值,实际值,误差值

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/21 22:07:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:51 积分:494 威望:0 精华:0 注册:2020/2/21 10:32:00
加上时间范围怎么写啊  发帖心情 Post By:2020/2/22 9:56:00 [只看该作者]

有一个时间范围算出每个品种的总共值


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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/22 10:05:00 [只看该作者]

生成时间范围条件的用法http://www.foxtable.com/webhelp/topics/2720.htm

分组统计可以使用条件统计

GroupTableBuilder包括以下属性:

Caption:           字符型,指定新生成统计表的标题。
Groups:            集合,用于添加分组列
Totals:            集合,用于添加统计列。
VerticalTotal:     逻辑型,设为True,垂直方向自动增加汇总行。参考:垂直汇总
GrandProportion:   逻辑型,是否生成总占比。 参考:分组统计之占比分析
GroupProportion:   逻辑型,是否生成分组占比。参考:分组统计之占比分析 
SamePeriodGrowth:  逻辑型,是否生成同比增长率。参考: 分组统计之增长率分析
CircleGrowth:      逻辑型,是否生成环比增长率。参考: 分组统计之增长率分析
Subtotal:          逻辑型,设为True,将对分组统计结果进行二次统计,生成汇总模式。 参考:自动生成汇总模式
SubtotalLevel:     整数型,根据多少个分组生成汇总模式。 参考:自动生成汇总模式
Decimals:          整数型,用于设置统计结果要保留的小数位数,默认为4位。
Filter:            字符型,如果只是对SourceDataTable中的部分数据进行统计,可用Filter属性设置条件。
请参考表达式的运算符和函数 和 条件表达式


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


加好友 发短信
等级:幼狐 帖子:51 积分:494 威望:0 精华:0 注册:2020/2/21 10:32:00
这样可以吗  发帖心情 Post By:2020/2/22 10:17:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("A")
    If .Value IsNot Nothing Then
        Filter = "配方名称 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("B")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("C")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With
Dim b As New GroupTableBuilder("统计表1",DataTables("生产记录"))
b.Groups.AddDef("原料名称") '根据产品分组
b.Totals.AddDef("设定值") '对数量进行统计 
b.Totals.AddDef("实际值") 
b.Totals.AddDef("误差值") 

b.Build '生成统计表 
MainTable = Tables("统计表1")

If Filter > "" Then
    Tables("生产记录").Filter = Filter
End If

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/22 10:33:00 [只看该作者]

……
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With
Dim b As New GroupTableBuilder("统计表1",DataTables("生产记录"))
b.Groups.AddDef("原料名称") '根据产品分组
b.Totals.AddDef("设定值") '对数量进行统计 
b.Totals.AddDef("实际值") 
b.Totals.AddDef("误差值") 
b.Filter = Filter
b.Build '生成统计表 
MainTable = Tables("统计表1")

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


加好友 发短信
等级:幼狐 帖子:51 积分:494 威望:0 精华:0 注册:2020/2/21 10:32:00
这样写不对啊,查出来的东西是乱的  发帖心情 Post By:2020/2/22 11:16:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("J")
    If .Value IsNot Nothing Then
        Filter = "配方名称 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("H")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("I")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With

Dim b As New GroupTableBuilder("统计表1",DataTables("生产记录"))
b.Groups.AddDef("原料名称") '根据产品分组
b.Totals.AddDef("设定值") '对数量进行统计 
b.Totals.AddDef("实际值") 
b.Totals.AddDef("误差值") 
b.Filter = Filter
b.Build '生成统计表 
MainTable = Tables("统计表1")

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/22 11:32:00 [只看该作者]

什么东西乱?要实现什么效果?上传实例说明

 回到顶部