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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加载求和

共有2243人关注过本帖树形打印复制链接主题：加载求和

有点甜

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

加好友

发短信

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

Post By：2017/12/20 21:13:00 [显示全部帖子]

试试这样

Select Case e.DataCol.Name
Case "合格品","不合格品","报废品"
Dim pr As DataRow

pr = DataTables("生产排产表").Find("加工工序 = '" & e.DataRow("加工工序") & "' and 成品编码 = '" & e.DataRow("成品编码")& "' and 生产批次 = '" & e.DataRow("生产批次") & "'")

If pr is Nothing then
pr = DataTables("生产排产表").sqlFind("加工工序 = '" & e.DataRow("加工工序") & "' and 成品编码 = '" & e.DataRow("成品编码")& "' and 生产批次 = '" & e.DataRow("生产批次") & "'")

        end if
        If pr IsNot Nothing Then
            pr(e.DataCol.Name)= e.DataTable.sqlCompute("sum(" & e.DataCol.Name & ")", "加工工序 = '" & e.DataRow("加工工序") & "' and 成品编码 = '" & e.DataRow("成品编码") & "' and 生产批次 = '" & e.DataRow("生产批次")& "' and _Identify <> " & e.DataRow("_Identify")) + e.DataRow(e.DataCol.Name)

pr.save
End If
End Select

有点甜

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

加好友

发短信

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

Post By：2017/12/20 21:32:00 [显示全部帖子]

请加入msgbox弹出是否执行里面的代码。弹出各个值看是否正确。

有点甜

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

加好友

发短信

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

Post By：2017/12/20 21:53:00 [显示全部帖子]

没有弹出说明没有触发datacolchanged事件。datacolchanged是你修改了表的某列数据才会触发的。

有点甜

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

加好友

发短信

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

Post By：2017/12/20 22:41:00 [显示全部帖子]

以下是引用nuoyan88在2017/12/20 21:59:00的发言：
老师，我先在工序记录表窗口中报工，保存之后值在汇总到生产排产表对应的例中。

datacolchanged事件触发了没有？加入多个msgbox，能否弹出msgbox？

重置列，能否触发datacolchanged

有点甜

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

加好友

发短信

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

Post By：2017/12/20 22:47:00 [显示全部帖子]

如果是窗口表，写到窗口表的datacolchanged事件去。

有点甜

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

加好友

发短信

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

Post By：2017/12/20 23:06:00 [显示全部帖子]

改成

pr(e.DataCol.Name)= e.DataTable.sqlCompute("sum(" & e.DataCol.Name & ")", "加工工序 = '" & e.DataRow("加工工序") & "' and 成品编码 = '" & e.DataRow("成品编码") & "' and 生产批次 = '" & e.DataRow("生产批次")& "' and [_Identify] <> " & e.DataRow("_Identify")) + e.DataRow(e.DataCol.Name)

有点甜

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

加好友

发短信

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

Post By：2017/12/20 23:09:00 [显示全部帖子]

以下是引用nuoyan88在2017/12/20 23:07:00的发言：
老师，汇总之后如果有删除明细，汇总结果却不变

DataRowDeleteing、DataRowDeleted事件的代码写了没有？

有点甜

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

加好友

发短信

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

Post By：2017/12/21 9:00:00 [显示全部帖子]

以下是引用nuoyan88在2017/12/20 23:14:00的发言：
是窗口事件吗？没呢，不知道怎么写？谢谢

你问过类似的啊，你先要把基础学一下，不然你做的系统问题漏洞都多。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=110176&skin=0

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

主题：加载求和