以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  数据筛选出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71843)

--  作者：czy --  发布时间：2015/7/19 10:09:00 --   …… With e.Form.Controls("DateTimePicker1")     If .Value IsNot Nothing Then         If Filter >"" Then             Filter = Filter & " And "         End If         Filter = Filter & "日期 >= #" & .Value & "#"     End If End With With e.Form.Controls("DateTimePicker2")     If .Value IsNot Nothing Then         If Filter >"" Then             Filter = Filter & " And "         End If         Filter = Filter & "日期 <= #" & .Value & "#"     End If End With If Filter > "" Then     DataTables("鸡苗销售").LoadFilter = Filter     DataTables("鸡苗销售").Load() End If