- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 过滤代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65575)
-- 发布时间：2015/3/18 15:52:00
-- 过滤代码
Dim Filter As String
With e.Form.Controls("DateTimePicker3")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 >= #" & .Value & "#"
vars("起始日期") = .Value
End If
End With
With e.Form.Controls("DateTimePicker4")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 <= #" & .Value & "#"
vars("终止日期") = .Value
End If
End With
If Filter > "" Then
Tables("派工表").Filter = "[新老客户] is 新客户" /这句对吗？
End If
只通过起始日期和终止日期，点击按钮后，就会筛选出 新客户 的数据， 上面代码红色部份对吗？
-- 发布时间：2015/3/18 15:53:00
--
Tables("派工表").Filter = "[新老客户] = ‘新客户’"
right?
-- 发布时间：2015/3/18 15:53:00
--
Tables("派工表").Filter = "[新老客户] = \'新客户\'"
-- 发布时间：2015/3/18 16:17:00
--
上面代码就是那样，但日期段统计不正确
请看截图：
此主题相关图片如下：qq图片20150318161601.jpg
-- 发布时间：2015/3/18 16:19:00
--
[此贴子已经被作者于2015/3/18 16:19:31编辑过]
-- 发布时间：2015/3/18 16:20:00
--
tiantian，你上面的回复 is null
-- 发布时间：2015/3/18 16:21:00
--
If .Value IsNot Nothing Then
改成
If .Value = Nothing Then
-------------------------------
Tables("派工表").Filter = "[新老客户] = \'新客户\'"
改成
Tables("派工表").Filter = "[新老客户] = \'新客户\' And " & Filter
-- 发布时间：2015/3/18 16:27:00
--
我只改了这句 就可以了： Tables("派工表").Filter = "[新老客户] = \'新客户\' And " & Filter
上面的没有改。
3Q