主题：紧急求助，一个关于报表的问题

有一个报表，代码如下：

           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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:ck1.foxdb

 请上传你的 user 数据源，不然无法测试。楼主

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

数据库文件 在上面

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:data.rar

 我看了半天，想问你的问题是什么？报表的什么问题？比如你要得到什么效果？

在采购入库单 里 创建了数据  点击 收发存报表(仓库) 报表 里没有反应
此主题相关图片如下：qq截图20130119102915.jpg

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

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

 关键是不知道你的逻辑是什么，你的报表要实现什么没有明说。