excel报表选出时间是今天的数据怎么操作 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2641人关注过本帖树形打印复制链接主题：excel报表选出时间是今天的数据怎么操作

woshiabc

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()

这个为什么错了，要怎样改呢

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/2 14:07: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()

[此贴子已经被作者于2015/7/2 14:07:51编辑过]

woshiabc

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/2 16:04:00 [只看该作者]

选择两个时间

Dim jt As String =e.Form.Controls("ComboBox1").Value
Dim sd As Date = e.Form.Controls("DateTimePicker1").Value
Dim ed As Date = e.Form.Controls("DateTimePicker2").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 = "<检查时间 >= # " & sd & "# And 检查时间 <= #" & ed & "# And 机台 = '" & jt & "'>" '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

[此贴子已经被作者于2015/7/2 16:03:48编辑过]