- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请问一下这个怎么破 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110736)
-- 发布时间：2017/12/8 13:34:00
-- 请问一下这个怎么破
请问一下这个怎么破
此主题相关图片如下：qq图片20171208132728.png
-- 发布时间：2017/12/8 14:13:00
--
代码写到datacolchanged事件
http://www.foxtable.com/webhelp/scr/1445.htm
-- 发布时间：2017/12/8 14:32:00
--
此主题相关图片如下：qq图片20171208142411.png
有点甜老师：
这是您早晨帮我修改的，我下载后重新启动了一下，还可以正常使用，其中的参数也没有进行修改。等第二次重新启动时发现数据就不能正常进行关联统计了。
所以现在不知道原因 很郁闷了
-- 发布时间：2017/12/8 14:41:00
--
选择返回日期列，重置列
-- 发布时间：2017/12/8 15:08:00
--
此主题相关图片如下：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("加工结果_返工")
Next
e.DataRow("加工数量") = sum
fdr("加工数量") = sum
Else
e.DataRow("加工数量") = Nothing
End If
End If
End Select
-- 发布时间：2017/12/8 15:53:00
--
请说明具体计算逻辑。如何才是正确的？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:合格版本 (1).table |
-- 发布时间：2017/12/8 16:50:00
--
此主题相关图片如下：3.png
此主题相关图片如下：2.png
麻烦有点甜老师了，可以留个方式私聊吗？帮了我这么多怪不好意思的
此主题相关图片如下：1.png
-- 发布时间：2017/12/8 16:54:00
--
参考6楼，看是否有问题。根据 产品型号、工序代码、领取人 区分不同的数据的。