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

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

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

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编辑过]

nuoyan89

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

nuoyan89

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

nuoyan89

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

nuoyan89

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

nuoyan89

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

加好友

发短信

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

Post By：2022/12/16 21:15:00 [显示全部帖子]

老师，我调整了下，还是不行，能帮忙看看吗？谢谢

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

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("出入库明细").SQLUpdate(drs)

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

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

nuoyan89

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

加好友

发短信

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

Post By：2022/12/17 9:59:00 [显示全部帖子]

老师，这个我昨天调试过了，是不行的！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

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

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