此主题相关图片如下：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
加好友 
发短信
Post By：2017/12/8 13:34:00 [显示全部帖子]
