主题：excel报表问题

改成 <生产令号>

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

代码改成

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("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

模板改成

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

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

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

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

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

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("sum(当月入库金额除税)",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))
这四句不要合计值，只要筛选当月值

<"QR824-485-XL-"&[生产令号]&"-"&"&P">

编号表达式，想让打印页码作为流水编号，现在不显示页码，要怎么改

认认真真看红色代码啊

 e.Book.Marks("当月入库金额除税") = val(DataTables("入库信息").Compute("sum(当月入库金额除税)",Filter))

要写代码处理

http://www.foxtable.com/webhelp/scr/1315.htm

http://www.foxtable.com/webhelp/scr/1145.htm

e.Book.Marks("当月入库金额除税") = val(DataTables("入库信息").Compute("sum(当月入库金额除税)",Filter))

这句是要计算合计的值

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

这句不要计算合计值，只要调取“月初库存数量”要怎么改？

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