老师，我做月结时发现一个问题，就是同一个编码出现多次，如图1，请帮忙看看，谢谢
此主题相关图片如下：1.jpg
Dim dt As DataTable = DataTables("出入库明细")
Dim str As String = e.Form.Controls("月").Text
Dim kw As String = e.Form.Controls("库位1").Text
Dim d As Date = new Date(str.SubString(0, 4), str.SubString(4,2), 1)
Dim ls As new List(Of String)
For Each dr As DataRow In dt.sqlSelect("月 = '" & str & "' and 库位 = '" & kw & "'")
Dim s = dr("成品编码") & "|" & dr("库位")
If ls.Contains(s) = False Then
ls.add(s)
End If
Next
For Each dr As DataRow In DataTables("期初数据").sqlSelect("月 = '" & Format(d.AddMonths(-1), "yyyyMM") & "' and 库位 = '" & kw & "'")
Dim s = dr("成品编码") & "|" & dr("库位")
If ls.Contains(s) = False Then
ls.add(s)
End If
Next
For Each cl As String In ls
Dim cl1 = cl.split("|")(0)
Dim cl2 = cl.split("|")(1)
Dim dr As DataRow = DataTables("成品月结_月结").AddNew
dr("月") = str
dr("成品编码") = cl1
dr("库位") = cl2
Dim Filter As String = "成品编码 = '" & cl1 & "' And 月 = '" & str & "' and 库位 = '" & cl2 & "'"
Dim dr1 As DataRow = DataTables("期初数据").SQLFind("成品编码='" & cl1 & "' and 月 = '" & Format(d.AddMonths(-1), "yyyyMM") & "' and 库位 = '" & cl2 & "'")
If dr1 IsNot Nothing Then
dr("上月结存_A类") = dr1("期初数量_A类")
dr("上月结存_B类") = dr1("期初数量_B类")
End If
dr("本月入库_A类") = dt.SQLCompute("Sum(入库数量)",Filter & " And 月 = '" & dr("月") & "'And 入库类型 = 'A类' And 单据类型 = '入库'")
dr("本月入库_B类") = dt.SQLCompute("Sum(入库数量)",Filter & " And 月 = '" & dr("月") & "'And 入库类型 = 'B类' And 单据类型 = '入库'")
dr("本月出库_A类") = dt.SQLCompute("Sum(出库数量)",Filter & " And 月 = '" & dr("月") & "'And 出库类型 = 'A类' And 单据类型 = '出库'")
dr("本月出库_B类") = dt.SQLCompute("Sum(出库数量)",Filter & " And 月 = '" & dr("月") & "'And 出库类型 = 'B类' And 单据类型 = '出库'")
dr("本月结存_A类") = dr("上月结存_A类") + dr("本月入库_A类") - dr("本月出库_A类")
dr("本月结存_B类") = dr("上月结存_B类") + dr("本月入库_B类") - dr("本月出库_B类")
Next
加好友 
发短信
Post By：2021/8/27 11:07:00 [显示全部帖子]
