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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 同一张表中汇总出库数量

共有5292人关注过本帖树形打印复制链接主题：同一张表中汇总出库数量

nuoyan89

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

加好友

发短信

等级：一尾狐帖子：498 积分：3453 威望：0 精华：0 注册：2020/10/9 8:45:00

同一张表中汇总出库数量 发帖心情

Post By：2022/12/15 19:51:00 [只看该作者]

老师，我想在同一张表中做后台更新，就是”出入库明细“这个表里有入库明细，入库类型为“在库”，对应的出库数量想也在《出入库明细》中统计，根据成品编码、采购订单号、单据类型为“出库”，把出库数量合计到对应的入库订单明细中

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

[此贴子已经被作者于2022/12/15 20:15:17编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/12/15 20:24:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0677.htm

nuoyan89

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

加好友

发短信

等级：一尾狐帖子：498 积分：3453 威望：0 精华：0 注册：2020/10/9 8:45:00

Post By：2022/12/15 21:45:00 [只看该作者]

老师，表里有单据类型这一列，请帮忙看看，谢谢

Dim b As New GroupTableBuilder("统计表1", DataTables("出入库明细"))

b.Filter = "[单据类型] = '出库'"

b.Groups.AddDef("成品编码") '根据产品分组

b.Groups.AddDef("采购订单号") '根据产品分组

b.Totals.AddDef("出库数量") '对数量进行统计

Dim dt1 As DataTable = b.Build(True)

Dim dr1 As DataRow

For Each dr4 As Row In Tables("出入库明细").Rows

dr1 = dt1.find("成品编码 = '" & dr4("成品编码") & "' and 采购订单号 = '" & dr4("采购订单号") & "' and 单据类型 = '入库'")

If dr1 IsNot Nothing Then

dr4("出库数量") = dr1("出库数量")

End If

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/12/15 22:05:00 [只看该作者]

用的是统计表，统计表没有这个列

nuoyan89

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

加好友

发短信

等级：一尾狐帖子：498 积分：3453 威望：0 精华：0 注册：2020/10/9 8:45:00

Post By：2022/12/15 22:17:00 [只看该作者]

老师，红色的提示没有这个列，我应该怎么改呢？

Dim b As New GroupTableBuilder("统计表1", DataTables("出入库明细"))

b.C

b.Groups.AddDef("成品编码") '根据产品分组

b.Groups.AddDef("采购订单号") '根据产品分组

b.Totals.AddDef("出库数量") '对数量进行统计

b.Filter = "[单据类型] = '出库'"

Dim dt1 As DataTable = b.Build(True)

Dim dr1 As DataRow

For Each dr4 As Row In Tables("出入库明细").Rows

dr1 = dt1.find("成品编码 = '" & dr4("成品编码") & "' and 采购订单号 = '" & dr4("采购订单号") & "' and 单据类型 = '入库'")

If dr1 IsNot Nothing Then

dr4("出库数量") = dr1("出库数量")

End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/12/15 22:25:00 [只看该作者]

遍历统计表，用主表查询

nuoyan89

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

加好友

发短信

等级：一尾狐帖子：498 积分：3453 威望：0 精华：0 注册：2020/10/9 8:45:00

Post By：2022/12/15 22:29:00 [只看该作者]

啥意思，没懂，以下的是主表

For Each dr4 As Row In Tables("出入库明细").Rows

有点蓝

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

加好友

发短信

等级：超级版主帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/12/15 23:01:00 [只看该作者]

For Each dr4 As dataRow In dt1.dataRows

dr1 = dataTables("出入库明细").find("成品编码 = '" & dr4("成品编码") & "' and 采购订单号 = '" & dr4("采购订单号") & "' and 单据类型 = '入库'")

nuoyan89

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

加好友

发短信

等级：一尾狐帖子：498 积分：3453 威望：0 精华：0 注册：2020/10/9 8:45:00

Post By：2022/12/15 23:18:00 [只看该作者]

已解决

[此贴子已经被作者于2022/12/15 23:24:50编辑过]

nuoyan89

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

加好友

发短信

等级：一尾狐帖子：498 积分：3453 威望：0 精华：0 注册：2020/10/9 8:45:00

Post By：2022/12/15 23:40:00 [只看该作者]

老师，我改成了以下用法了，因为后台表设置的是不加载，用了以下的代码后台数据还是不更新，帮忙看看，谢谢

Dim b As New SQLGroupTableBuilder("统计表1", DataTables("出入库明细"))

b.C

b.Groups.AddDef("成品编码") '根据产品分组

b.Groups.AddDef("采购订单号") '根据产品分组

b.Totals.AddDef("出库数量") '对数量进行统计

b.Filter = "[单据类型] = '出库'"

Dim dt1 As DataTable = b.Build(True)

Dim dr1 As DataRow

For Each dr4 As Row In Tables("出入库明细").Rows

For Each dr As DataRow In dt1.dataRows

Dim drs As List(Of DataRow) = DataTables("出入库明细").sqlSelect("成品编码 = '" & dr("成品编码") & "' and 采购订单号 = '" & dr("采购订单号") & "' and 单据类型 = '入库'")

For Each dr2 As DataRow In drs

dr2("出库数量") = dr("出库数量")

DataTables("出入库明细").load

DataTables("出入库明细").SQLUpdate(drs)

DataTables("出入库明细").Save()

[此贴子已经被作者于2022/12/16 1:52:01编辑过]

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

总数 15 1 2 下一页

主题：同一张表中汇总出库数量