有一个报表，代码如下：

           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

你这里 有qq吗？我的数据库里文件很大 论坛里上传不了啊

lin_hailun 哥哥 能帮我远程看一下吗

现在系统就这个问题 搞得用不得 公司仓库 管理员 抱怨很多