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


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

主题：多表统计
美女呀，离线，留言给我吧！
朱女士
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		多表统计  发帖心情 Post By：2020/7/20 7:20:00 [只看该作者]

老师您好！

      我设计了第一个计算库存的模式，运行正常，但是缺陷是分别从期初表，入库表中的ylggddm中分别取不同值,形成一个字段然后再取不同值形成规格表再参加计算，目的是将原料的规格取值取完全后形成规格表，再依此计算出库表，最终形成库存表。我感到很麻烦。我又用帮助中的形成组合统计结果的方式，又设计一个计算库存的模式，运行也正常，但缺陷是只能显示ylggddm一个分组列，其他内容如供应商、原料名称等字段不知道怎么显示到统计结果中，再就是只能在窗口的table表中显示，怎么形成第一个模式的统计表？我的想法将两种模式的优点组合起来，不知道怎么才能实现？我将代码给您，请指教！

第一个模式

Dim dtb As New DataTableBuilder("原料库存")
dtb.AddDef("ylggddm", Gettype(String), 26)

dtb.AddDef("供应商", Gettype(String), 8)
dtb.AddDef("原料名称", Gettype(String), 12)
'dtb.AddDef("原料类别", Gettype(String), 4)

dtb.AddDef("原料规格", Gettype(String), 22)

dtb.AddDef("长", Gettype(String), 6)
dtb.AddDef("宽", Gettype(String), 6)
dtb.AddDef("厚", Gettype(String),6)
dtb.AddDef("期初_数量", Gettype(Double))
dtb.AddDef("期初_重量", Gettype(Double))
dtb.AddDef("期初_含税额", Gettype(Double))

dtb.AddDef("入库_数量", Gettype(Double))
dtb.AddDef("入库_重量", Gettype(Double))
dtb.AddDef("入库_含税额", Gettype(Double))

dtb.AddDef("出库_数量", Gettype(Double))
dtb.AddDef("出库_重量", Gettype(Double))
dtb.AddDef("出库_含税额", Gettype(Double))

dtb.Build()
'计算原料期初数据
For Each nm As String In DataTables("规格表").GetValues("ylggddm")
    Dim dr As DataRow = DataTables("原料库存").AddNew()
    Dim pr As DataRow = DataTables("规格表").find("ylggddm='" & nm & "'")
    dr("ylggddm") = nm
    dr("供应商") = pr("供应商")
    dr("原料名称") = pr("ylmc")
    '  dr("原料类别") = pr("yllb")

    dr("原料规格") = pr("原料规格")
    dr("长") = pr("长")
    dr("宽") = pr("宽")
    dr("厚") = pr("厚")
    dr("期初_数量") = DataTables("ylqcb").Compute("Sum(期初_数量)","[ylggddm] = '" & dr("ylggddm") & "'")
    dr("期初_重量") = DataTables("ylqcb").Compute("Sum(期初_重量)","[ylggddm] = '" & dr("ylggddm") & "'")
    dr("期初_含税额") = DataTables("ylqcb").Compute("Sum(期初_含税额)","[ylggddm] = '" & dr("ylggddm") & "'")
   
    dr("入库_数量") = DataTables("ylrkb").Compute("Sum(入库_数量)","[ylggddm] = '" & dr("ylggddm") & "'")
   
    dr("入库_重量") = DataTables("ylrkb").Compute("Sum(入库_重量)","[ylggddm] = '" & dr("ylggddm") & "'")
   
    dr("入库_含税额") = DataTables("ylrkb").Compute("Sum(入库_含税额)","[ylggddm] = '" & dr("ylggddm") & "'")
   
    dr("出库_数量") = DataTables("ylckb").Compute("Sum(出库_数量)","[ylggddm] = '" & dr("ylggddm") & "'")
   
    dr("出库_重量") = DataTables("ylckb").Compute("Sum(出库_重量)","[ylggddm] = '" & dr("ylggddm") & "'")
   
    dr("出库_含税额") = DataTables("ylckb").Compute("Sum(出库_含税额)","[ylggddm] = '" & dr("ylggddm") & "'")
   
Next

With DataTables("原料库存").DataCols  '用表达式列计算库存数据
    .Add("库存_数量",Gettype(Double), "IsNull([期初_数量],0)+isnull([入库_数量],0)-ISNULL([出库_数量],0)")
    .Add("库存_重量",Gettype(Double), "IsNull([期初_重量],0)+isnull([入库_重量],0)-ISNULL([出库_重量],0)")
    .Add("库存_含税额",Gettype(Double), "IsNull([期初_含税额],0)+isnull([入库_含税额],0)-ISNULL([出库_含税额],0)")
End With


MainTable= Tables("原料库存")
Tables("新原料库存计算_table1").datasource=DataTables("原料库存")

第二个模式

 

Dim bd1 As New GroupTableBuilder("库存统计表1",DataTables("ylqcb"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("ylggddm") '根据ylggddm分组
'bd1.Groups.AddDef("供应商")
'bd1.Groups.AddDef("ylmc")
'bd1.Groups.AddDef("原料规格")

bd1.Totals.AddDef("期初_数量","期初_数量")
bd1.Totals.AddDef("期初_重量","期初_重量")
bd1.Totals.AddDef("期初_含税额","期初_含税额")
'bd1.Subtotal = True
dt1 = bd1.BuildDataSource()
'MainTable = Tables("库存统计表1") '打开生成的统计表

Dim bd2 As New GroupTableBuilder("库存统计表2",DataTables("ylrkb"))
Dim dt2  As fxDataSource
bd2.Groups.AddDef("ylggddm")

'bd1.Groups.AddDef("供应商")
'bd1.Groups.AddDef("ylmc")
'bd1.Groups.AddDef("原料规格")

bd2.Totals.AddDef("入库_数量","入库_数量")
bd2.Totals.AddDef("入库_重量","入库_重量")
bd2.Totals.AddDef("入库_含税额","入库_含税额")

bd2.Subtotal = True
dt2 = bd2.BuildDataSource()
'MainTable = Tables("库存统计表2") '打开生成的统计表


Dim bd3 As New GroupTableBuilder("库存统计表3",DataTables("ylckb"))
Dim dt3 As fxDataSource
bd3.Groups.AddDef("ylggddm")

'bd1.Groups.AddDef("供应商")
'bd1.Groups.AddDef("ylmc")
'bd1.Groups.AddDef("原料规格")

bd3.Totals.AddDef("出库_数量","出库_数量")
bd3.Totals.AddDef("出库_重量","出库_重量") '

bd3.Totals.AddDef("出库_含税额","出库_含税额")
bd3.Subtotal = True
dt3 = bd3.BuildDataSource()
'MainTable = Tables("库存统计表3") '打开生成的统计表


dt1.Combine("ylggddm",dt2,"ylggddm") '将入库统计数据组合到期初统计数据
'dt1.Combine("供应商",dt2,"供应商") '将入库统计数据组合到期初统计数据
'dt1.Combine("ylmc",dt2,"ylmc") '将入库统计数据组合到期初统计数据
'dt1.Combine("原料规格",dt2,"原料规格") '将入库统计数据组合到期初统计数据

dt1.Combine("ylggddm",dt3,"ylggddm") '将出库统计数据组合到期初统计数据
'dt1.Combine("供应商",dt3,"供应商") '将入库统计数据组合到期初统计数据
'dt1.Combine("ylmc",dt3,"ylmc") '将入库统计数据组合到期初统计数据
'dt1.Combine("原料规格",dt3,"原料规格") '将入库统计数据组合到期初统计数据

Tables("库存新计算_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("库存新计算_Table1").DataCols
   
    .Add("库存_数量",Gettype(Double), "IsNull([期初_数量],0) +ISNULL([入库_数量],0) - ISNULL([出库_数量],0)")
    .Add("库存_重量",Gettype(Double), "IsNull([期初_重量],0) +ISNULL([入库_重量],0) - ISNULL([出库_重量],0)")
    .Add("库存_含税额",Gettype(Double), "IsNull([期初_含税额],0) +ISNULL([入库_含税额],0) - ISNULL([出库_含税额],0)")
 
End With

 

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


加好友 发短信
等级：超级版主 帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/20 8:44:00 [只看该作者]

请上传实例测试

 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2020/7/20 9:56:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：图片1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：图片2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/20 10:04:00 [只看该作者]

使用SQLGroupTableBuilder吧，如：

Dim bd1 As New SQLGroupTableBuilder("统计表1","ylqcb")
bd1.AddTable("ylqcb","ylggddm","规格表","ylggddm")

Dim dt1 As fxDataSource
bd1.Groups.AddDef("{ylqcb}.ylggddm") '根据ylggddm分组

bd1.Groups.AddDef("供应商") 
bd1.Groups.AddDef("ylmc") 
bd1.Groups.AddDef("原料规格")

bd1.Totals.AddDef("期初_数量","期初_数量") 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询