以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 数据筛选出错 (http://foxtable.com/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 |