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


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

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

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


加好友 发短信
等级:超级版主 帖子:106028 积分:539233 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/15 10:54:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/1284.htm

Dim dr As DataRow = DataTables("入库").Find("[日期] = #" & thrq & "# and [品名] = '" & thpm & "'")

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


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

谢谢老师指点

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/10/18 19:20:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:mmexport1571397485853.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/10/18 19:21:00 [只看该作者]

请老师指点出现提示的解决办法,谢谢老师。

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


加好友 发短信
等级:超级版主 帖子:106028 积分:539233 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/18 20:32:00 [只看该作者]

勾选“显示详细信息”,看是哪个事件出错,检查修改代码。错误提示是指使用了空对象

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/10/19 17:07:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:screenshot_20191019_170402.jpg
图片点击可在新窗口打开查看
右键快捷菜单出现这个问题,请问老师怎么处理?谢谢

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/10/19 17:07:00 [只看该作者]

谢谢老师指点,祝你们周末愉快!

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


加好友 发短信
等级:超级版主 帖子:106028 积分:539233 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/19 17:14:00 [只看该作者]

如果是自己设计的菜单,只有切换到自定义菜单模式才会有用:http://www.foxtable.com/webhelp/topics/1466.htm

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/10/19 20:40:00 [只看该作者]

谢谢老师,是用系统菜单保存为文件,再在菜单设计中导入的。

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/10/20 10:40:00 [只看该作者]

Dim employees As List(Of String)
Dim dt1 As Date = Date.Today
InputValue(dt1, "日期筛选","请输入开始日期:")
Dim dt2 As Date = Date.Today
InputValue(dt2, "日期筛选","请输入结束日期:")
employees = DataTables("出库").GetValues("员工编号","[出库日期] >= '#' & dt1 & '#' And [出库日期] <= '#' & dt2 & '#'","出库日期")
For Each employee As String In employees
    Output.Show(employee)
Next

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