主题：excel报表问题

多行内容生成一张报表，这样好像不行啊！

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

点击浏览该文件:qr755-002领料清单.xls

请教

要在表“生产令号”中生成报表

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

点击浏览该文件:辅机收发存.xls

报告中“当月库存数量”等于表“发货信息”中当月的“可入库数量”

表达式要怎么改？

此主题相关图片如下：捕获.jpg

[@入库信息,&可入库数量,行位置]

行位置怎么写？筛选当月的！

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

点击浏览该文件:辅机收发存.xls

 

Select Case e.Book.TempLate
Case "辅机收发存"
    e.Book.Marks.Add("月初库存数量",0)
    e.Book.Marks.Add("月初库存金额",0)
    e.Book.Marks.Add("当月入库数量",0)
    e.Book.Marks.Add("当月入库金额除税",0)
End Select

 

Select Case e.Book.TempLate
    Case "辅机收发存"
        If e.DataRow IsNot Nothing AndAlso e.Region = "生产令号" Then
            Dim y As Integer = Date.Today.Year
            Dim m As Integer = Date.Today.Month
            Dim dt1 As New Date(y, m, 1)
            Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
            Dim Filter As String
            Filter = "入库时间 >= #" & dt1 & "# And 入库时间 <= #" & dt2 & "#"
            Tables("入库信息").Filter = Filter
            e.Book.Marks("月初库存数量") = DataTables("入库信息").Compute("月初库存信息",Filter)

           e.Book.Marks("月初库存数量") = DataTables("入库信息").Compute("月初库存金额",Filter)

           e.Book.Marks("月初库存数量") = DataTables("入库信息").Compute("月初库存数量",Filter)

           e.Book.Marks("月初库存数量") = DataTables("入库信息").Compute("月初库存金额除税",Filter)
        End If
End Select

 

哪里需要修改一下？

 

 

 

Select Case e.Book.TempLate
    Case "辅机收发存"
        If e.DataRow IsNot Nothing AndAlso e.Region = "生产令号" Then
            Dim y As Integer = Date.Today.Year
            Dim m As Integer = Date.Today.Month
            Dim dt1 As New Date(y, m, 1)
            Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
            Dim Filter As String
            Filter = "入库时间 >= #" & dt1 & "# And 入库时间 <= #" & dt2 & "#"
            Tables("入库信息").Filter = Filter
            e.Book.Marks("月初库存数量") = DataTables("入库信息").Compute("月初库存数量",Filter)
           e.Book.Marks("月初库存金额") = DataTables("入库信息").Compute("月初库存金额",Filter)
           e.Book.Marks("当月入库数量") = DataTables("入库信息").Compute("当月入库数量",Filter)
           e.Book.Marks("当月入库金额除税") = DataTables("入库信息").Compute("当月入库金额除税",Filter)
        End If

此主题相关图片如下：捕获.jpg

 

预览报表，显示都是0，另外项目名称、生产令号等都不显示了？

 

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

点击浏览该文件:项目.rar

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

点击浏览该文件:项目.rar

823148

改成 <生产令号>

 

 

.NET Framework 版本：2.0.50727.8793
Foxtable 版本：2018.10.9.1
错误所在事件：Excel报表,BuildDetail
详细错误信息：
无法计算。表达式“System.Data.NameNode”不是聚合。

改了一下报表，代码需要怎样修改？

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

点击浏览该文件:辅机收发存.xls

Select Case e.Book.TempLate
    Case "辅机收发存"
        e.Book.Marks.Add("月初库存数量",0)
        e.Book.Marks.Add("月初库存金额",0)
        e.Book.Marks.Add("当月入库数量",0)
        e.Book.Marks.Add("当月入库金额除税",0)
        e.Book.Marks.Add("月初库存数量合计",0)
        e.Book.Marks.Add("月初库存金额合计",0)
        e.Book.Marks.Add("当月入库数量合计",0)
        e.Book.Marks.Add("当月入库金额除税合计",0)
End Select

 

Select Case e.Book.TempLate
    Case "辅机收发存"
        If e.DataRow IsNot Nothing AndAlso e.Region = "生产令号" Then
            Dim y As Integer = Date.Today.Year
            Dim m As Integer = Date.Today.Month
            Dim dt1 As New Date(y, m, 1)
            Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
            Dim Filter As String
            Filter = "入库时间 >= #" & dt1 & "# And 入库时间 <= #" & dt2 & "#"
            'Tables("入库信息").Filter = Filter
            e.Book.Marks("月初库存数量") = val(DataTables("入库信息").Compute("月初库存数量",Filter))
            e.Book.Marks("月初库存金额") = val(DataTables("入库信息").Compute("月初库存金额",Filter))
            e.Book.Marks("当月入库数量") = val(DataTables("入库信息").Compute("当月入库数量",Filter))
            e.Book.Marks("当月入库金额除税") = val(DataTables("入库信息").Compute("当月入库金额除税",Filter))
            e.Book.Marks("月初库存数量合计") = val(DataTables("入库信息").Compute("sum(月初库存数量)",Filter))
            e.Book.Marks("月初库存金额合计") = val(DataTables("入库信息").Compute("sum(月初库存金额)",Filter))
            e.Book.Marks("当月入库数量合计") = val(DataTables("入库信息").Compute("sum(当月入库数量)",Filter))
            e.Book.Marks("当月入库金额除税合计") = val(DataTables("入库信息").Compute("sum(当月入库金额除税)",Filter))
        End If
End Select

 

 

e.Book.Marks("月初库存数量") = val(DataTables("入库信息").Compute("月初库存数量",Filter))
e.Book.Marks("月初库存金额") = val(DataTables("入库信息").Compute("月初库存金额",Filter))
e.Book.Marks("当月入库数量") = val(DataTables("入库信息").Compute("当月入库数量",Filter))
e.Book.Marks("当月入库金额除税") = val(DataTables("入库信息").Compute("当月入库金额除税",Filter))
这四句不要合计值，只要筛选当月值