在命令窗口执行:
Dim s As String = "201111"
If s <> "" Then
Dim f As New Filler
f.SourceTable = DataTables("入仓")
f.DataTable = DataTables("月报表")
f.ExcludeExistValue = True
f.Filter = "月份 = '" & s & "'"
f.Fill()
Dim f1 As New Filler
f1.SourceTable = DataTables("出仓")
f1.DataTable = DataTables("月报表")
f1.ExcludeExistValue = True
f1.Filter = "月份 = '" & s & "'"
f1.Fill()
For Each dr As DataRow In DataTables("月报表").DataRows
Dim s1 As String = "型号 = '" & dr("型号") & "' And 规格 = '" & dr("规格") & "' And 月份 = '" & s & "'"
dr("本月入仓") = DataTables("入仓").Compute("Sum(入仓数量)",s1)
dr("本月出仓") = DataTables("出仓").Compute("Sum(出仓数量)",s1)
s1 = "型号 = '" & dr("型号") & "' And 规格 = '" & dr("规格") & "' And 月份 < '" & s & "'"
dr("上月结存") = DataTables("入仓").Compute("Sum(入仓数量)",s1) - DataTables("出仓").Compute("Sum(出仓数量)",s1)
dr("本月结存") = dr("上月结存") + dr("本月入仓") - dr("本月出仓")
Next
End If