Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel报表选出时间是今天的数据怎么操作


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

主题：excel报表选出时间是今天的数据怎么操作
帅哥哟，离线，有人找我吗？
woshiabc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1214 威望：0 精华：0 注册：2015/7/1 17:35:00 		excel报表选出时间是今天的数据怎么操作  发帖心情 Post By：2015/7/1 20:05:00 [显示全部帖子]

代码是这样的
Dim Book As New XLS.Book(ProjectPath & "Attachments\出筒部统计表.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\出筒部统计表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,1).Value = "<检查时间 >= # " & Date.Today & "# And 检查时间 < #" & Date.Today.Adddays(1) & "#>"  '写入打印条件
Book.Build() '生成报表
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()
但是点击按钮后表格是
检查时间
空的，要怎么做？
[此贴子已经被作者于2015/7/1 20:06:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
woshiabc
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1214 威望：0 精华：0 注册：2015/7/1 17:35:00 		  发帖心情 Post By：2015/7/2 9:34:00 [显示全部帖子]

这是模板，请帮忙写出正确的代码
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:出筒部统计表.xls




如果继续添加条件，比如日期是今天，机台是6号的数据筛选出来，可以实现吗

[此贴子已经被作者于2015/7/2 9:36:53编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
woshiabc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1214 威望：0 精华：0 注册：2015/7/1 17:35:00 		  发帖心情 Post By：2015/7/2 9:38:00 [显示全部帖子]

这个是不行的，我昨晚已经改过了

 回到顶部
帅哥哟，离线，有人找我吗？
woshiabc
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1214 威望：0 精华：0 注册：2015/7/1 17:35:00 		  发帖心情 Post By：2015/7/2 11:57:00 [显示全部帖子]

假如要实现点击窗口按钮进入选择窗口，根据选择的日期和机台选出需要的数据要怎么做？

 回到顶部
帅哥哟，离线，有人找我吗？
woshiabc
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1214 威望：0 精华：0 注册：2015/7/1 17:35:00 		  发帖心情 Post By：2015/7/2 13:47:00 [显示全部帖子]

还要增加选择机台号（combobox组件）的条件呢？要怎样写？

 回到顶部
帅哥哟，离线，有人找我吗？
woshiabc
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1214 威望：0 精华：0 注册：2015/7/1 17:35:00 		  发帖心情 Post By：2015/7/2 14:00:00 [显示全部帖子]

Dim jt As String =e.Form.Controls("ComboBox1").Value
Dim dt As Date = e.Form.Controls("DateTimePicker1").Value
Dim Book As New XLS.Book(ProjectPath & "Attachments\出筒部统计表.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\出筒部统计表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,19).Value = "<检查时间 >= # " & dt & "# And 检查时间 < #" & dt.Adddays(1) & "#> And <机台>=jt"  '写入打印条件
Book.Build() '生成报表
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()

这个为什么错了，要怎样改呢
 回到顶部
帅哥哟，离线，有人找我吗？
woshiabc
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1214 威望：0 精华：0 注册：2015/7/1 17:35:00 		  发帖心情 Post By：2015/7/2 15:59:00 [显示全部帖子]

日期如果选择具体的时间点要怎样操作？比如说从早上8点到晚上8点，从晚上8：30到第二天早上7:30这两个时间段的数据

控件还是用回datetimepicker吗？
[此贴子已经被作者于2015/7/2 15:59:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
woshiabc
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1214 威望：0 精华：0 注册：2015/7/1 17:35:00 		  发帖心情 Post By：2015/7/2 16:18:00 [显示全部帖子]

这里只是选择天数，我想问的是具体的几点到几点，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
woshiabc
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1214 威望：0 精华：0 注册：2015/7/1 17:35:00 		  发帖心情 Post By：2015/7/2 16:28:00 [显示全部帖子]

不能选择时间的跨度吗？比如选择今天早上8点到明天早上8点的数据

 回到顶部
帅哥哟，离线，有人找我吗？
woshiabc
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：160 积分：1214 威望：0 精华：0 注册：2015/7/1 17:35:00 		  发帖心情 Post By：2015/7/2 16:32:00 [显示全部帖子]

可以用时段输入框吗

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 6 次数据查询