excel报表问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

试了一下，只能在报表事件里输出，参考：http://www.foxtable.com/webhelp/scr/1955.htm

下载信息 [文件大小：下载次数： ]
点击浏览该文件:辅机收发存.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

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

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

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

哪里需要修改一下？

[此贴子已经被作者于2018/11/24 13:41:28编辑过]

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

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

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

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

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，另外项目名称、生产令号等都不显示了？

[此贴子已经被作者于2018/11/24 14:36:30编辑过]

上传具体实例测试

下载信息 [文件大小：下载次数： ]
点击浏览该文件:项目.rar

1、模板那里，A列，为什么是生产令号> ？是不是要改成 <生产令号> ？

2、贴出开发者密码、上传数据库，才能测试。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:项目.rar

823148

主题：excel报表问题