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


  共有4204人关注过本帖树形打印复制链接

主题:excel报表如何实现写入日期及出库人?

帅哥哟,离线,有人找我吗?
evolymft
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/10/21 11:10:00 [显示全部帖子]

谢谢老师。

 回到顶部
帅哥哟,离线,有人找我吗?
evolymft
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/10/24 16:45:00 [显示全部帖子]

请问老师:交叉统计可以只分类,不汇总数量吗?

 回到顶部
帅哥哟,离线,有人找我吗?
evolymft
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/10/24 16:48:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
evolymft
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/10/24 19:36:00 [显示全部帖子]

谢谢老师指点。

 回到顶部
帅哥哟,离线,有人找我吗?
evolymft
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 请问老师,上面这一句错误在哪里?我是照着书上做的。

 回到顶部
帅哥哟,离线,有人找我吗?
evolymft
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
evolymft
  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/10/29 11:25:00 [显示全部帖子]

谢谢老师,主要是35楼的代码的问题,照着书上写的,但是提示有错误。

 回到顶部
帅哥哟,离线,有人找我吗?
evolymft
  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/10/29 13:07:00 [显示全部帖子]

谢谢老师提醒,提示错误:ISNULL不是DATATABLE的成员。

 回到顶部
帅哥哟,离线,有人找我吗?
evolymft
  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/10/29 13:52:00 [显示全部帖子]

好的,谢谢老师。

 回到顶部
总数 31 上一页 1 2 3 4 下一页