Foxtable(狐表)用户栏目专家坐堂 → 关于数据统计的一点问题


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

主题:关于数据统计的一点问题

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


加好友 发短信
等级:狐精 帖子:3370 积分:24858 威望:0 精华:0 注册:2012/3/26 21:47:00
关于数据统计的一点问题  发帖心情 Post By:2012/5/9 0:01:00 [只看该作者]

通过多表连接 现在已经实现了基本功能 但现在有个细节想请教下  如果库存表中期初或入库 或出库为空 就把数量显示为0 要怎么实现》?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/5/9 9:07:00 [只看该作者]

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("出库"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("产品") '根据型号分组
bd1.Totals.AddDef("数量","出库数量") '对数量进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("入库"))
Dim dt2  As fxDataSource
bd2.Groups.AddDef("产品") '根据型号分组
bd2.Totals.AddDef("数量","入库数量") '对数量进行统计
dt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3",DataTables("期初"))
Dim dt3 As fxDataSource
bd3.Groups.AddDef("产品") '根据型号分组
bd3.Totals.AddDef("数量","期初数量") '对数量进行统计
dt3 = bd3.BuildDataSource()

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

Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table

For Each r As Row In Tables("窗口1_Table1").Rows
    For Each c As col In Tables("窗口1_Table1").Cols
        If c.DataCol.IsNumeric AndAlso r.IsNull(c.name) Then
            r(c.name) = 0
        End If
    Next
Next


 回到顶部