有一个报表,代码如下:
DataTables("仓库_收发存报表").DataRows.Clear
DataTables("仓库_收发存报表").Save
Dim str As List(Of String) = DataTables("仓库_采购入库单明细").GetUniqueValues("","月份")
Dim f As New Filler
f.SourceTable = DataTables("仓库_物品管理")
f.DataTable = DataTables("仓库_收发存报表")
f.ExcludeExistValue = True
f.Distinct = True '排除重复值
f.Fill()
For Each s As String In str
If s <> "" Then
For Each dr As DataRow In DataTables("仓库_收发存报表").DataRows
Dim s1 As String = "物品名称 = '" & dr("物品名称") & "'And 月份 = '" & s & "'"
dr("本月收入_数量") = DataTables("仓库_采购入库单明细").Compute("Sum(数量)",s1)+DataTables("仓库_成品入库单明细").Compute("Sum(数量)",s1)+DataTables("仓库_领用退回单明细").Compute("Sum(数量)",s1)+DataTables("仓库_销售退货单明细").Compute("Sum(数量)",s1)
Dim s2 As String = "物品名称 = '" & dr("物品名称") & "'And 月份 = '" & s & "'"
Dim s3 As String = "物品名称 = '" & dr("物品名称") & "'And 月份 < '" & s & "'"
dr("月份") = s
dr("本月发出_数量") = DataTables("仓库_领用出库单明细").Compute("Sum(数量)",s2)+DataTables("仓库_成品出库单明细").Compute("Sum(数量)",s2)+DataTables("仓库_销售出库单明细").Compute("Sum(数量)",s2)+DataTables("仓库_采购退货单明细").Compute("Sum(数量)",s2)+DataTables("仓库_物品报废单明细").Compute("Sum(数量)",s2)
dr("期初库存_数量") = DataTables("仓库_采购入库单明细").Compute("Sum(数量)",s3) + DataTables("仓库_成品入库单明细").Compute("Sum(数量)", s3) + DataTables("仓库_领用退回单明细").Compute("Sum(数量)", s3)+ DataTables("仓库_销售退货单明细").Compute("Sum(数量)", s3)- DataTables("仓库_领用出库单明细").Compute("Sum(数量)", s3)- DataTables("仓库_成品出库单明细").Compute("Sum(数量)", s3)- DataTables("仓库_销售出库单明细").Compute("Sum(数量)", s3)- DataTables("仓库_采购退货单明细").Compute("Sum(数量)", s3)- DataTables("仓库_物品报废单明细").Compute("Sum(数量)", s3)
dr("期末结存_数量") = dr("期初库存_数量") + dr("本月收入_数量") - dr("本月发出_数量")
Next
End If
Next
DataTables("仓库_收发存报表").DeleteFor(" [物品名称] Is null")
DataTables("仓库_收发存报表").DeleteFor(" 期初库存_数量 = 0 And 本月收入_数量 Is null And 本月发出_数量 Is null And 期末结存_数量 = 0 ")
DataTables("仓库_收发存报表").Save
请问上述代码,哪里有问题。代码在附件 的导航窗口的 NodeMouseDoubleClick 事件里。登陆的用户名是 开发者 密码 是 331896390