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

请问一下这个怎么破

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

代码写到datacolchanged事件

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

有点甜老师：

这是您早晨帮我修改的，我下载后重新启动了一下，还可以正常使用，其中的参数也没有进行修改。等第二次重新启动时发现数据就不能正常进行关联统计了。

所以现在不知道原因很郁闷了

选择返回日期列，重置列

图片点击可在新窗口打开查看

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

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

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

有点甜老师您好：

这个是按您的指示更改的，数据跑完以后差距很大不知道是什么原因？由于我还没看到编程部分，所以能否帮我优化一下啊。图片点击可在新窗口打开查看

Select Case e.DataCol.name

Case "返回日期"

If e.DataRow.IsNull("返回日期") Then

e.DataRow("加工数量") = False

Else

Dim fdr As DataRow = e.DataTable.Find("领取人 = '" & e.DataRow("返回人") & "' and 适用产品_工序代码 = '" & e.DataRow("适用产品_工序代码") & "'", "领取日期 desc")

If fdr IsNot Nothing Then

Dim filter As String = "加工时间 >= #" & fdr("领取日期") & "# and 加工时间 <= #" & e.DataRow("返回日期") & "# and 工序代码 = '" & e.DataRow("适用产品_工序代码") & "'"

Dim sum As Double = 0

For Each dr As DataRow In DataTables("随件卡").Select(filter)

sum += dr("加工结果_合格") + dr("加工结果_工废") + dr("加工结果_料废") + dr("加工结果_返工")

e.DataRow("加工数量") = sum

fdr("加工数量") = sum

Else

e.DataRow("加工数量") = Nothing

End If

End Select

请说明具体计算逻辑。如何才是正确的？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:合格版本 (1).table

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

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

麻烦有点甜老师了，可以留个方式私聊吗？帮了我这么多怪不好意思的
图片点击可在新窗口打开查看

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

参考6楼，看是否有问题。根据产品型号、工序代码、领取人区分不同的数据的。

主题：请问一下这个怎么破