以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  求助：日期筛选不起作用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150608)

--  作者：海浪声声 --  发布时间：2020/6/3 9:00:00 --  求助：日期筛选不起作用 求助：时间段筛选无效 此主题相关图片如下：微信图片_20200603085720.png 如图：设置日期起止后，选择时间段的信息输出报表。 Dim sd As WinForm.DateTimePicker Dim ed As WinForm.DateTimePicker sd = e.Form.Controls("StartDate") ed = e.Form.Controls("EndDate") If sd.Value IsNot Nothing And ed.Value IsNot Nothing Then  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,9).Value = "< [入库日期] >= # sd # And [入库日期] <= # ed #>" \'Sheet(3,9).Value = "< 入库日期 >= sd And 入库日期 <= >"  \'写入打印条件 Book.Build() \'生成报表 Book.Save(fl)  Dim Proc As New Process  Proc.File = fl Proc.Start() Else  MessageBox.Show("请输入起始日期和终止日期!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)  e.Cancel = True End If

--  作者：有点蓝 --  发布时间：2020/6/3 9:30:00 --   Dim sd As WinForm.DateTimePicker Dim ed As WinForm.DateTimePicker sd = e.Form.Controls("StartDate") ed = e.Form.Controls("EndDate") If sd.Value <> Nothing And ed.Value <> Nothing Then     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,9).Value = "< [入库日期] >= #" & sd & "# And [入库日期] <= #" & ed & "# >"          \'Sheet(3,9).Value = "< 入库日期 >= sd And 入库日期 <= >"  \'写入打印条件     Book.Build() \'生成报表     Book.Save(fl)     Dim Proc As New Process     Proc.File = fl     Proc.Start() Else     MessageBox.Show("请输入起始日期和终止日期!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information) End If

--  作者：海浪声声 --  发布时间：2020/6/3 10:38:00 --   谢谢版主指点

--  作者：海浪声声 --  发布时间：2020/6/3 10:42:00 --   出错了 此主题相关图片如下：微信图片1.png

--  作者：有点蓝 --  发布时间：2020/6/3 10:50:00 --   Sheet(3,9).Value = "< [入库日期] >= #" & sd.value & "# And [入库日期] <= #" & ed.value & "# >"

--  作者：海浪声声 --  发布时间：2020/6/3 13:56:00 --   按照这个筛选的记录是全部数据，也就是说跟我原来的一样，没有起到筛选作用

--  作者：海浪声声 --  发布时间：2020/6/3 13:58:00 --   随便指定一个日期都一样

--  作者：有点蓝 --  发布时间：2020/6/3 14:20:00 --   实例发上来测试一下

--  作者：海浪声声 --  发布时间：2020/6/3 14:36:00 --   谢谢版主 [此贴子已经被作者于2020/6/3 14:36:19编辑过]

--  作者：海浪声声 --  发布时间：2020/6/3 14:37:00 --   请指教  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:测试.table