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

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

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

大红袍

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

加好友

发短信

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

Post By：2015/7/1 20:17:00 [显示全部帖子]

Sheet(3,1) 明显有问题，看这里 http://www.foxtable.com/help/topics/2626.htm

大红袍

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

加好友

发短信

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

Post By：2015/7/2 9:36: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,19).Value = "<检查时间 >= # " & Date.Today & "# And 检查时间 < #" & Date.Today.Adddays(1) & "#>" '写入打印条件

Book.Build() '生成报表

Book.Save(fl)

Dim Proc As New Process

Proc.File = fl

Proc.Start()

下载信息 [文件大小：下载次数： ]
点击浏览该文件:出筒部统计表.xls

大红袍

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

加好友

发短信

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

Post By：2015/7/2 9:39:00 [显示全部帖子]

用上面的模板和代码啊

大红袍

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

大红袍

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