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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 计数更改为求和

共有2892人关注过本帖树形打印复制链接主题：计数更改为求和

nuoyan88	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	计数更改为求和 Post By：2019/3/4 21:35:00 [只看该作者] 用户已被锁定

有点蓝

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

加好友

发短信

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

Post By：2019/3/4 21:57:00 [只看该作者]

dim sum as integer

For Each f As Row In Tables("包装箱需求明细_发货明细").GetCheckedRows
    Dim s2 As DataRow = w.DataTable.Find("材料编码='" & f("材料编码") & "' and 材料描述 ='" & f("材料描述") & "'")
    If s2 Is Nothing Then
        s2 = w.DataTable.addnew
        s2("材料编码") = f("材料编码")
        s2("材料描述") = f("材料描述")
        s2("下达日期") = Date.Today
        s2("规格型号") = f("规格型号")
        s2("包装箱尺寸") = f("包装箱尺寸")
  sum = sum +1

s2("需求数量") =sum
End If
Next

nuoyan88	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2019/3/4 22:28:00 [只看该作者] 用户已被锁定

有点蓝

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

加好友

发短信

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

Post By：2019/3/4 22:33:00 [只看该作者]

For Each f As Row In Tables("包装箱需求明细_发货明细").GetCheckedRows

Dim s2 As DataRow = w.DataTable.Find("材料编码='" & f("材料编码") & "' and 材料描述 ='" & f("材料描述") & "'")

If s2 Is Nothing Then

s2 = w.DataTable.addnew

s2("材料编码") = f("材料编码")

s2("材料描述") = f("材料描述")

s2("下达日期") = Date.Today

s2("规格型号") = f("规格型号")

s2("包装箱尺寸") = f("包装箱尺寸")

s2("需求数量") =w.compute("sum(需求数量)","材料编码='" & f("材料编码") & "' and 材料描述 ='" & f("材料描述") & "'")

End If

nuoyan88	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2019/3/5 8:17:00 [只看该作者] 用户已被锁定

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/5 9:17:00 [只看该作者]

改成

s2("需求数量") =w.compute("sum(需求数量)","材料编码='" & f("材料编码") & "' and 材料描述 ='" & f("材料描述") & "'")
Next

nuoyan88	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2019/3/5 9:30:00 [只看该作者] 用户已被锁定

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/5 10:40:00 [只看该作者]

Forms("信息录入").Open()
Dim w As Table = Forms("信息录入").Controls("信息总表").Table
For Each f As Row In Tables("过程明细_明细").GetCheckedRows
    Dim s2 As DataRow = w.DataTable.Find("成品编码='" & f("成品编码") & "' and 加工工序 ='" & f("加工工序") & "'")
    If s2 Is Nothing Then
        s2 = w.DataTable.addnew
        s2("成品编码") = f("成品编码")
        s2("成品描述") = f("成品描述")
        s2("日期") = Date.Today
    End If
    s2("异常数量") = f.Table.compute("sum(异常数量)","成品编码 ='" & f("成品编码") & "' and 加工工序 ='" & f("加工工序") & "'")
Next

nuoyan88	小大 9楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2019/3/5 11:46:00 [只看该作者] 用户已被锁定

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/5 12:18:00 [只看该作者]

Forms("信息录入").Open()
Dim w As Table = Forms("信息录入").Controls("信息总表").Table
For Each f As Row In Tables("过程明细_明细").GetCheckedRows
    Dim s2 As DataRow = w.DataTable.Find("成品编码='" & f("成品编码") & "' and 加工工序 ='" & f("加工工序") & "'")
    If s2 Is Nothing Then
        s2 = w.DataTable.addnew
        s2("成品编码") = f("成品编码")
        s2("成品描述") = f("成品描述")
        s2("加工工序") = f("加工工序")
        s2("日期") = Date.Today
    End If
    s2("异常数量") += f("异常数量")
Next

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

主题：计数更改为求和