DataTables("染化料助剂库存盘点").DataRows.Clear()
Dim st As Date = Date.Now
Dim nms As List(of String()) = DataTables("染料助剂录入").GetValues("货物类别|入账分类")
Dim d1 As Date = Forms("染化料助剂库存盘点").Controls("StartDate").Value
Dim d2 As Date = Forms("染化料助剂库存盘点").Controls("EndDate").Value
DataTables("染化料助剂库存盘点").StopRedraw()
For Each nm() As String In nms
Dim dr As DataRow = DataTables("染化料助剂库存盘点").AddNew()
dr("货物类别") = nm(0)
dr("入账分类") = nm(1)
dr("已结算数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "货物类别 = '" & nm(0) & "' and 入账分类= '" & nm(1) & "' And 结算情况 = 1 And 结算日期 <= #" & d2 & "#")
dr("未结算数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "货物类别 = '" & nm(0) & "' and 入账分类= '" & nm(1) & "' And 结算情况 = 0 And 操作日期 <= #" & d2 & "#")
dr("采购总数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)","货物类别 = '" & nm(0) & "' and 入账分类= '" & nm(1) & "' And 操作日期 <= #" & d2 & "#")
dr("本月结算数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "货物类别 = '" & nm(0) & "' and 入账分类= '" & nm(1) & "' And 结算日期 >= #" & d1 & "# And 结算日期 <= #" & d2 & "#")
dr("本月领料数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "货物类别 = '" & nm(0) & "' and 入账分类= '" & nm(1) & "' And 操作日期 >= #" & d1 & "# And 操作日期 <= #" & d2 & "#")
dr("上月未结算数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "货物类别 = '" & nm(0) & "' and 入账分类= '" & nm(1) & "' And 结算情况 = 0 And 操作日期 < #" & d1 & "#")
dr("本月未结算数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "货物类别 = '" & nm(0) & "' and 入账分类= '" & nm(1) & "' And 结算情况 = 0 And 操作日期 <= #" & d2 & "#")
For Each dc As DataCol In dr.DataTable.DataCols
If dc.IsNumeric AndAlso dr.Isnull(dc.name) Then
dr(dc.name) = 0
End If
Next
Next
DataTables("染化料助剂库存盘点").ResumeRedraw()