以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel报表选出时间是今天的数据怎么操作  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70939)
--  作者：woshiabc
--  发布时间：2015/7/1 20:05:00
--  excel报表选出时间是今天的数据怎么操作
代码是这样的
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编辑过]
--  作者：大红袍
--  发布时间：2015/7/1 20:17:00
--  

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

 
--  作者：狐狸爸爸
--  发布时间：2015/7/1 20:19:00
--  

 注意最后一句话：

必须将打印条件写入准确的位置，模版中行和列的编号都是从0开始的额，切记。

 

搞不定就把模版发上来，我们帮你设置一下
--  作者：woshiabc
--  发布时间：2015/7/2 9:34:00
--  
这是模板，请帮忙写出正确的代码
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:出筒部统计表.xls




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

[此贴子已经被作者于2015/7/2 9:36:53编辑过]
--  作者：大红袍
--  发布时间：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
--  作者：woshiabc
--  发布时间：2015/7/2 9:38:00
--  
这个是不行的，我昨晚已经改过了
--  作者：大红袍
--  发布时间：2015/7/2 9:39:00
--  
 用上面的模板和代码啊
--  作者：woshiabc
--  发布时间：2015/7/2 11:57:00
--  
假如要实现点击窗口按钮进入选择窗口，根据选择的日期和机台选出需要的数据要怎么做？
--  作者：狐狸爸爸
--  发布时间：2015/7/2 12:37:00
--  

 设计一个窗口，插入一个输入框，用于输入日期，代码改为：

 

 

Dim dt As date = e.Form.Controls("日期输入框").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) & "#>"  \'写入打印条件
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
--  作者：woshiabc
--  发布时间：2015/7/2 13:47:00
--  
还要增加选择机台号（combobox组件）的条件呢？要怎样写？