DataTables("产品月结").DataRows.Clear
Dim dt1 As DataTable = DataTables("产品入库")
Dim dt2 As DataTable = DataTables("产品出库")
Dim str As String = e.Form.Controls("月").Text
Dim d As Date = New Date(str.SubString(0, 4), str.SubString(4, 2), 1) '获取本月的第1天
Dim ls As List(Of String) = dt1.GetValues("产品代码", "月 = '" & str & "'")
For Each s As String In dt2.GetValues("产品代码", "月 = '" & str & "'")
If ls.Contains(s) = False Then
ls.add(s)
End If
Next
For Each s As String In DataTables("产品上月结存").GetValues("产品代码", "月 = '" & Format(d.AddMonths( - 1), "yyyyMM") & "'")
If ls.Contains(s) = False Then
ls.add(s)
End If
Next
For Each cl As String In ls
Dim dr As DataRow = DataTables("产品月结").AddNew
dr("月") = str
dr("产品代码") = cl
Dim Filter As String = "产品代码 = '" & cl & "' And 月 = '" & str & "'"
Dim dr1 As DataRow = DataTables("产品上月结存").Find("产品代码 = '" & cl & "' and 月 = '" & Format(d.AddMonths( - 1), "yyyyMM") & "'")
'Dim dr1 As DataRow = DataTables("产品上月结存").Find("产品代码 = '" & cl & "' and 月 = '" & Format(d.AddMonths(0), "yyyyMM") & "'")
If dr1 IsNot Nothing Then
dr("上月结存") = dr1("上月结存")
End If
dr("本月入仓") = dt1.Compute("Sum(入仓数量)", Filter)
dr("本月出仓") = dt2.Compute("Sum(出仓数量)", Filter)
dr("本月结存") = dr("上月结存") + dr("本月入仓") - dr("本月出仓")
Next
加好友 
发短信
Post By：2022/7/7 21:22:00 [只看该作者]
