- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 日期查询 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101561)
-- 发布时间：2017/6/2 16:56:00
-- 日期查询
表格里的“计划年度”是文字型的，如2000-2014年度的面积查询。
\'With e.Form.Controls("StartDate")
\'If .Value IsNot Nothing Then
\'If Filter >"" Then
\'Filter = Filter & " And "
\'End If
\'Filter = Filter & "计划年度 >= #" & .Value & "#"
\'End If
\'End With
\'With e.Form.Controls("EndDate")
\'If .Value IsNot Nothing Then
\'If Filter >"" Then
\'Filter = Filter & " And "
\'End If
\'Filter = Filter & "计划年度 <= #" & .Value & "#"
\'End If
\'End With
此主题相关图片如下：tupian2.png
此主题相关图片如下：tupaian3.png
提示错误的报告。请帮着处理一下。谢谢
此主题相关图片如下：tupian1.png
此主题相关图片如下：tupian1.png-- 发布时间：2017/6/2 17:05:00
--
代码最开始，要定义 Dim Filter As String