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

共有2539人关注过本帖树形打印复制链接主题：咨询

jamhuton

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00

咨询

Post By：2015/5/7 12:19:00 [只看该作者]

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

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

出来是这个效果

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

jamhuton

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00

Post By：2015/5/7 12:19:00 [只看该作者]

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

出来是这个效果

jamhuton

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00

Post By：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

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00

Post By：2015/5/7 13:09:00 [只看该作者]

顶一下

jamhuton

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00

Post By：2015/5/7 13:44:00 [只看该作者]

没人回答？

jamhuton

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00

Post By：2015/5/7 13:52:00 [只看该作者]

Bin

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/7 13:55:00 [只看该作者]

参考帮助,可以编码统计 http://www.foxtable.com/help/topics/0681.htm

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

狐狸爸爸

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

大红袍

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00

Post By：2015/5/7 14:28:00 [只看该作者]

这个是一个表统计到另外一个表，我从2个表填充到一个表，是不是2段代码？

下一主题 >> << 上一主题

总数 13 1 2 下一页

主题：咨询