专家坐堂-咨询Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  咨询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67969)

--  作者：jamhuton
--  发布时间：2015/5/7 12:19:00
--  咨询

大师帮我看一下我要的是这效果

此主题相关图片如下：qq图片20150507121605.png

出来是这个效果

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:库存.rar

--  作者：jamhuton
--  发布时间：2015/5/7 12:19:00
--

此主题相关图片如下：qq图片20150507121630.jpg

出来是这个效果

--  作者：jamhuton
--  发布时间：2015/5/7 12:20:00
--

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("进库明细"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("物料品号") \'根据物料品号分组
bd1.Totals.AddDef("进库_箱数","库存_箱数") \'对数量进行统计
bd1.Totals.AddDef("进库_数量","库存_数量") \'对金额进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("出库明细"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("物料品号") \'根据物料品号分组
bd2.Totals.AddDef("出库_箱数","库存_箱数") \'对数量进行统计
bd2.Totals.AddDef("出库_数量","库存_数量") \'对金额进行统计
dt2 = bd2.BuildDataSource()

dt1.Combine("物料品号",dt2,"物料品号") \'将销售统计数据组合到进货统计数据

Tables("库存统计_Table1").DataSource = dt1 \'将统计结果绑定到Table
With DataTables("库存统计_Table1").DataCols \'用表达式列计算库存数据
.Add("库存_箱数",Gettype(Integer), "IsNull([进库_箱数],0) - ISNULL([出库_箱数],0)")
.Add("库存_数量",Gettype(Integer), "IsNull([进库_数量],0) - ISNULL([出库_数量],0)")
End With

--  作者：jamhuton
--  发布时间：2015/5/7 13:09:00
--
顶一下

--  作者：jamhuton
--  发布时间：2015/5/7 13:44:00
--
没人回答？

--  作者：jamhuton
--  发布时间：2015/5/7 13:52:00
--

--  作者：Bin
--  发布时间：2015/5/7 13:55:00
--
参考帮助,可以编码统计 http://www.foxtable.com/help/topics/0681.htm

不好意思,版主也是人,人类有五大缺陷"吃喝拉撒睡" 看下时间.某些时段没人是正常的.

--  作者：狐狸爸爸
--  发布时间：2015/5/7 14:13:00
--

你为啥进库和出库的统计列名要改为一样的，二者的名称必须不同，才能组合，下面这样不就行了吗:

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("进库明细"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("物料品号") \'根据物料品号分组
bd1.Totals.AddDef("进库_箱数") \'对数量进行统计
bd1.Totals.AddDef("进库_数量") \'对金额进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("出库明细"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("物料品号") \'根据物料品号分组
bd2.Totals.AddDef("出库_箱数") \'对数量进行统计
bd2.Totals.AddDef("出库_数量") \'对金额进行统计
dt2 = bd2.BuildDataSource()

dt1.Combine("物料品号",dt2,"物料品号") \'将销售统计数据组合到进货统计数据

Tables("库存统计_Table1").DataSource = dt1 \'将统计结果绑定到Table
With DataTables("库存统计_Table1").DataCols \'用表达式列计算库存数据
.Add("库存_箱数",Gettype(Integer), "IsNull([进库_箱数],0) - ISNULL([出库_箱数],0)")
.Add("库存_数量",Gettype(Integer), "IsNull([进库_数量],0) - ISNULL([出库_数量],0)")
End With

--  作者：大红袍
--  发布时间：2015/5/7 14:14:00
--

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("进库明细"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("物料品号") \'根据物料品号分组
bd1.Groups.AddDef("物料名称") \'根据物料品号分组
bd1.Groups.AddDef("每箱pc数") \'根据物料品号分组
bd1.Totals.AddDef("进库_箱数","进库_箱数") \'对数量进行统计
bd1.Totals.AddDef("进库_数量","进库_数量") \'对金额进行统计
bd1.Filter = "物料品号 is not null"
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("出库明细"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("物料品号") \'根据物料品号分组
\'bd2.Groups.AddDef("物料名称") \'根据物料品号分组
\'bd2.Groups.AddDef("每箱pc数") \'根据物料品号分组
bd2.Totals.AddDef("出库_箱数","出库_箱数") \'对数量进行统计
bd2.Totals.AddDef("出库_数量","出库_数量") \'对金额进行统计
bd2.Filter = "物料品号 is not null"
dt2 = bd2.BuildDataSource()

dt1.Combine("物料品号",dt2,"物料品号") \'将销售统计数据组合到进货统计数据

Tables("库存统计_Table1").DataSource = dt1 \'将统计结果绑定到Table
With DataTables("库存统计_Table1").DataCols \'用表达式列计算库存数据
    .Add("库存_箱数",Gettype(Integer), "IsNull([进库_箱数],0) - ISNULL([出库_箱数],0)")
    .Add("库存_数量",Gettype(Integer), "IsNull([进库_数量],0) - ISNULL([出库_数量],0)")
End With

--  作者：jamhuton
--  发布时间：2015/5/7 14:28:00
--
这个是一个表统计到另外一个表，我从2个表填充到一个表，是不是2段代码？