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


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

主题:数据统计

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


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

用户已被锁定

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


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

这样1月份比如成品库就有2条记录,怎么知道取哪一条?

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


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

用户已被锁定

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


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

试试

Dim m1 As String = DataTables("库存").Compute("max(月)")
Dim dict As new Dictionary(of String,Date)
For Each y As String In DataTables("月结记录表").GetValues("仓库名称")
    Dim d As Date = DataTables("月结记录表").Compute("max(结束时间)","仓库名称='" & y & "'")
    dict.Add(y,d)
Next
Dim f2 As String = "1=2 "
For Each key As String In dict.Keys
    f2 = f2 & "or ( 仓库名称 ='" & key & "' and 单据日期 > #" & dict(key) & "#)"
Next
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("出入库明细"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("编号") '根据编号分组
bd1.Groups.AddDef("仓库名称") '根据编号分组
bd1.Totals.AddDef("入库数","入库数量") '对数量进行统计
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.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.Filter = "月='" & m1 & "'"
dt3 = bd3.BuildDataSource()

Dim nms() As String = {"编号","仓库名称"}
dt3 = bd3.BuildDataSource()
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt3,nms) '将退货统计数据组合到进货统计数据
Tables("窗口1_Table1").DataSource = dt1
With DataTables("窗口1_Table1").DataCols  '用表达式列计算库存数据
    .Add("库存数量",Gettype(Integer), "IsNull([上月结存],0) + ISNULL([入库数量],0) - ISNULL([出库数量],0)")
End With

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


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

用户已被锁定

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


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

Dim Filter ,f3 As String
With e.Form.Controls("仓库名称")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "仓库名称 = '" & .Value & "'"
        f3  = "仓库名称 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("产品编码")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "编号 = '" & .Value & "'"
    End If
End With

Dim m1 As String = DataTables("库存").Compute("max(月)",Filter )
Dim dict As new Dictionary(of String,Date)
For Each y As String In DataTables("月结记录表").GetValues("仓库名称",f3  )
    Dim d As Date = DataTables("月结记录表").Compute("max(结束时间)","仓库名称='" & y & "'")
    dict.Add(y,d)
Next
Dim f2 As String = "1=2 "
For Each key As String In dict.Keys
    f2 = f2 & "or ( 仓库名称 ='" & key & "' and 单据日期 > #" & dict(key) & "#)"
Next
With e.Form.Controls("产品编码")
    If .Value IsNot Nothing Then
        If f2>"" Then
            f2= f2 & " And "
        End If
        f2= f2 & "编号 = '" & .Value & "'"
    End If
End With
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("出入库明细"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("编号") '根据编号分组
bd1.Groups.AddDef("仓库名称") '根据编号分组
bd1.Totals.AddDef("入库数","入库数量") '对数量进行统计
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.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.Filter = "月='" & m1 & "'" & iif(filter > ""," and ","") & filter
dt3 = bd3.BuildDataSource()

Dim nms() As String = {"编号","仓库名称"}
dt3 = bd3.BuildDataSource()
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt3,nms) '将退货统计数据组合到进货统计数据
Tables("窗口1_Table1").DataSource = dt1
With DataTables("窗口1_Table1").DataCols  '用表达式列计算库存数据
    .Add("库存数量",Gettype(Integer), "IsNull([上月结存],0) + ISNULL([入库数量],0) - ISNULL([出库数量],0)")
End With

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


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

用户已被锁定

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


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

用户已被锁定

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


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

直接统计后台数据


如果数据量非常大,例如上百万甚至千万级别的记录,那么全部加载到内存是不可能的,所以Foxtable提供了动态加载数据的功能,使得在程序的运行过程中,也能随时根据需要加载符合条件的数据,这让Foxtable管理超大型数据库成为可能。

但是这有一个问题,动态加载部分数据是没问题的,但是很多时候,我们的统计是针对所有数据的,而Foxtable的分组统计和交叉统计默认都是针对已经加载的数据,如果我要统计所有数据,难道需要将一百万甚至一千万记录全部加载到Foxtable?显然这是不可能的。

对于熟练掌握SQL语言的用户来说,这不是问题,直接自己编写SQL语句来统计即可;但实际上,SQL语言虽然入门容易,但是精通是很难的,对于一些复杂的统计,即使是一些非常资深的程序员,也不见得能够在短时间内写出合理高效的SQL语句来,何况是普通用户呢?

为此GroupTableBuilder和CrossTableBuilder都提供了一个名为FromServer的逻辑属性,只需将此属性设为True,即可直接统计后台数据。

例如:

Dim g As New GroupTableBuilder("统计表1"DataTables("订单"))
g.Groups.AddDef("产品")
g.Totals.AddDef("数量")
g.FromServer = True
g.Build()
MainTable
 = Tables("统计表1")


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


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

用户已被锁定

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