excel报表如何实现写入日期及出库人？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel报表如何实现写入日期及出库人？

共有4139人关注过本帖树形打印复制链接主题：excel报表如何实现写入日期及出库人？

evolymft

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

加好友

发短信

等级：五尾狐帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00

Post By：2019/10/24 16:48:00 [只看该作者]

同一天多笔收入，交叉统计把数量和金额汇总。单价也汇总了。

有点蓝

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

加好友

发短信

等级：超级版主帖子：106113 积分：539676 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/10/24 16:51:00 [只看该作者]

不可以。

自己使用代码实现类似交叉统计的效果：http://www.foxtable.com/webhelp/topics/2394.htm

示例三，示例四去掉统计部分的代码即可

evolymft

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

加好友

发短信

等级：五尾狐帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00

Post By：2019/10/24 19:36:00 [只看该作者]

谢谢老师指点。

evolymft

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

加好友

发短信

等级：五尾狐帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00

Post By：2019/10/29 6:38:00 [只看该作者]

Select Case e.DataCol.Name Case "品名" If e.DataRow.lsNull("品名") = False Then '如果已经输入品名 If Tables("库存").Findrow("[品名] = '" & e.NewValue & "'") <= 0 Then Dim dr As DataRow = DataTables("库存").AddNew() dr("品名") = e.NewValue End If End If End Select

evolymft

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

加好友

发短信

等级：五尾狐帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00

Post By：2019/10/29 6:39:00 [只看该作者]

If e.DataRow.lsNull("品名") = False Then 请问老师，上面这一句错误在哪里？我是照着书上做的。

有点蓝

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

加好友

发短信

等级：超级版主帖子：106113 积分：539676 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/10/29 8:41:00 [只看该作者]

If Tables("库存").Findrow("[品名] = '" & e.NewValue & "'") < 0 Then

evolymft

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

加好友

发短信

等级：五尾狐帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00

Post By：2019/10/29 11:22:00 [只看该作者]

Select Case e.DataCol.Name Case "品名" If e.DataRow.lsNull("品名") = False Then '如果已经输入品名 If Tables("库存").Findrow("[品名] = '" & e.NewValue & "'") < 0 Then Dim dr As DataRow = DataTables("库存").AddNew() dr("品名") = e.NewValue End If End If End Select

[此贴子已经被作者于2019/10/29 11:23:06编辑过]