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


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

主题：数据统计
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/28 14:09:00 [显示全部帖子]

这个意思？

Dim d As Date = Date.Today
Dim m As String = Format(d,"yyyyMM")
Dim m1 As String = Format(d.AddMonths(-1),"yyyyMM")

Dim drs As List(Of  DataRow) = DataTables("月结记录表").Select("月='" & m1 & "'")
If drs.Count = 0 Then
    msgbox("上个月未月结")
    Return
End If

Dim f2 As String = "1=2 "
For Each dr As DataRow In drs
    f2 = f2 & "or ( 库位='" & dr("仓库名称") & "' and 单据日期 > #" & dr("结束时间") & "#)"
Next

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("出入库明细"))
Dim dt1 As fxDataSource
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.Totals.AddDef("出库数","出库数量") '对数量进行统计
bd2.Filter = f2
dt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3",DataTables("库存"))
Dim dt3 As fxDataSource
bd3.Groups.AddDef("编号") '根据编号分组
bd3.Totals.AddDef("库存数","上月结存") '对数量进行统计
bd3.Filter = "月='" & m1 & "'"
dt3 = bd3.BuildDataSource()

dt1.Combine("编号",dt2,"编号") '将销售统计数据组合到进货统计数据
dt1.Combine("编号",dt3,"编号") '将退货统计数据组合到进货统计数据

Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("窗口1_Table1").DataCols  '用表达式列计算库存数据
    .Add("库存数量",Gettype(Integer), "IsNull([上月结存],0) + ISNULL([入库数量],0) - ISNULL([出库数量],0)")
End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/28 15:20:00 [显示全部帖子]

分组统计里自己加一个出库的分组即可

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/28 16:00:00 [显示全部帖子]

dim nms() as string = {"编号","仓库名称"}
dt3 = bd3.BuildDataSource()
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt3,nms) '将退货统计数据组合到进货统计数据
Tables("窗口1_Table1").DataSource = dt1
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/28 16:59:00 [显示全部帖子]

月结记录表数据有问题，自己仔细看看

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/28 17:58:00 [显示全部帖子]

拿个放大镜仔细看看前面2行的年月日

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


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/28 20:39:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：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")

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/3 20:43:00 [显示全部帖子]

如果是表达式列，无法后台使用，改为数据列

 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 5 次数据查询