Foxtable(狐表)用户栏目专家坐堂 → 数据统计


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

主题:数据统计

帅哥,在线噢!
有点蓝
  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

分组去掉" _ ",添加表达式列的时候也要去掉" _ "的。

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


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/3/5 16:22:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥,在线噢!
有点蓝
  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105486 积分:536421 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/5 17:25:00 [只看该作者]

……
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("出入库明细"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("编号") '根据编号分组
bd1.Groups.AddDef("仓库名称") '根据编号分组
bd1.Totals.AddDef("入库数","入库数量") '对数量进行统计
bd1.FromServer = True
bd1.Filter = f2
dt1 = bd1.BuildDataSource()


Dim bd2 As New GroupTableBuilder("统计表2",DataTables("出入库明细"))
Dim dt2  As fxDataSource
bd2.Groups.AddDef("编号") '根据编号分组
bd2.Groups.AddDef("仓库名称") '根据编号分组
bd2.Totals.AddDef("出库数","出库数量") '对数量进行统计
bd2.FromServer = True
bd2.Filter = f2
dt2 = bd2.BuildDataSource()


Dim bd3 As New GroupTableBuilder("统计表3",DataTables("库存"))
Dim dt3 As fxDataSource
bd3.Groups.AddDef("编号") '根据编号分组
bd3.Groups.AddDef("仓库名称") '根据编号分组
bd3.Totals.AddDef("库存数","上月结存") '对数量进行统计
bd3.Totals.AddDef("期初数据_A类","上月结存A类") '对数量进行统计
bd3.Totals.AddDef("期初数据_B类","上月结存B类") '对数量进行统计
bd3.FromServer = True
bd3.Filter = "月='" & m1 & "'" & iif(filter > ""," and ","") & filter
dt3 = bd3.BuildDataSource()



Dim bd4 As New GroupTableBuilder("统计表4",DataTables("出入库明细"))
Dim dt4 As fxDataSource
bd4.Groups.AddDef("编号") '根据编号分组
bd4.Groups.AddDef("仓库名称") '根据编号分组
bd4.Filter = f2 & "and 入库类型 = 'A类'" 
bd4.Totals.AddDef("入库数","入库数量_A类") '对数量进行统计
bd4.FromServer = True
dt4 = bd4.BuildDataSource()

Dim bd5 As New GroupTableBuilder("统计表5",DataTables("出入库明细"))
Dim dt5 As fxDataSource
bd5.Groups.AddDef("编号") '根据编号分组
bd5.Groups.AddDef("仓库名称") '根据编号分组
bd5.Filter = f2 & "and 入库类型='B类'" 
bd5.Totals.AddDef("入库数","入库数量_B类") '对数量进行统计
bd5.FromServer = True
dt5 = bd5.BuildDataSource()


Dim bd6 As New GroupTableBuilder("统计表6",DataTables("出入库明细"))
Dim dt6  As fxDataSource
bd6.Groups.AddDef("编号") '根据编号分组
bd6.Groups.AddDef("仓库名称") '根据编号分组
bd6.Filter = f2 & "and 出库类型='A类'" 
bd6.Totals.AddDef("出库数","出库数量_A类") '对数量进行统计
bd6.FromServer = True
dt6 = bd6.BuildDataSource()

Dim bd7 As New GroupTableBuilder("统计表7",DataTables("出入库明细"))
Dim dt7  As fxDataSource
bd7.Groups.AddDef("编号") '根据编号分组
bd7.Groups.AddDef("仓库名称") '根据编号分组
bd7.Filter = f2 & "and 出库类型='B类'" 
bd7.Totals.AddDef("出库数","出库数量_B类") '对数量进行统计
'bd7.FromServer = True
dt7 = bd7.BuildDataSource()

Dim nms() As String = {"编号","仓库名称"}
dt3 = bd3.BuildDataSource()
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt3,nms) '将退货统计数据组合到进货统计数据
dt1.Combine(nms,dt4,nms) '将退货统计数据组合到进货统计数据
dt1.Combine(nms,dt5,nms) '将退货统计数据组合到进货统计数据
dt1.Combine(nms,dt6,nms) '将退货统计数据组合到进货统计数据
dt1.Combine(nms,dt7,nms) '将退货统计数据组合到进货统计数据
……

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


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/3/6 13:58:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/3/6 16:43:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥,在线噢!
有点蓝
  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


……
Dim f2 As String = "1=2 "
For Each key As String In dict.Keys
    f2 = f2 & "or ( 库位 ='" & key & "' and 单据日期 > #" & dict(key) & "#)"
Next
f2 = "(" & f2 & ") "
……

Dim bd5 As New GroupTableBuilder("统计表5",DataTables("出入库明细"))
Dim dt5 As fxDataSource
bd5.Groups.AddDef("库位") '根据成品编码分组
bd5.Groups.AddDef("成品编码") '根据成品编码分组
bd5.Groups.AddDef("成品描述") '根据成品编码分组
bd5.Groups.AddDef("规格型号") '根据成品编码分组
bd5.Filter = f2 & "and 入库类型 = 'B类'"
bd5.Totals.AddDef("入库数量","入库数量_B类") '对数量进行统计
bd5.FromServer = True
dt5 = bd5.BuildDataSource()

最后35楼项目"出入库明细"没有规格型号列

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


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/4/7 14:27:00 [只看该作者]

用户已被锁定

 回到顶部
总数 37 上一页 1 2 3 4