If e.DataCol.Name = "成品编码" OrElse e.DataCol.Name = "库位"
If e.DataRow.IsNull("库位") = False AndAlso e.DataRow.IsNull("成品编码") = False
If e.DataRow("库位") = "包装箱" Then
Dim d As Integer = Date.Today.Year
Dim f As Integer = Date.Today.Month
Dim dr1 As New Date(d, f, 1)
Dim do2 As New Date(d, f, Date.DaysInMonth(d, f)) '获取本月的最后一天
Dim g As Integer = Date.Today.Year
Dim n As Integer = Date.Today.Month
Dim dw1 As New Date(g, n, 1)
Dim dw2 As New Date(g, n, Date.DaysInMonth(g, n)) '获取本月的最后一天
Dim dv As DataRow = e.DataRow
Dim dq As DataTable =DataTables("销售发货明细")
dv("需求数量") = dq.Compute("sum(当日数量)", "发货日期 >= '" & dw1 & "' and 发货日期 <= '" & dw2 & "' and 材料编码 = '" & e.DataRow("成品编码") & "' And 发箱人员 is null")
Else
Dim Filter As String = "[材料编码] = '" & e.DataRow("成品编码") & "'"
e.DataRow("需求数量") = DataTables("材料需求明细").Compute("Sum(需求数量)", Filter)
End If
End If
End If
加好友 
发短信
Post By：2019/7/9 16:19:00 [显示全部帖子]
