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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel报表问题

共有3066人关注过本帖树形打印复制链接主题：excel报表问题

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/19 18:01:00 [显示全部帖子]

以下是引用13775189031在2018/11/19 17:37:00的发言：

要在报表领料清单最下面实现“领料人”和“审核人”的电子签该怎么弄？

参考

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

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/19 18:02:00 [显示全部帖子]

以下是引用13775189031在2018/11/19 17:57:00的发言：

1、在同一个Excel中合并：

这段代码要写在哪里？

生成报表之后。http://www.foxtable.com/webhelp/scr/1953.htm

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/20 12:30:00 [显示全部帖子]

回复18楼，你的模板，要改成分组报表

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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/27 14:42:00 [显示全部帖子]

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

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

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/27 16:23:00 [显示全部帖子]

代码改成

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

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/27 18:17:00 [显示全部帖子]

看红色代码

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

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/28 12:09:00 [显示全部帖子]

以下是引用13775189031在2018/11/28 10:52:00的发言：

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))