- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 过滤筛选报错 老师！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121931)
-- 发布时间：2018/7/16 9:15:00
-- 过滤筛选报错 老师！
此主题相关图片如下：12.jpg
Dim Filter As String
With e.Form.Controls("textbox1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "mc =\'" & .Value & "\'"
End If
End With
With e.Form.Controls("textbox3")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "no=\'" & .Value & "\'"
End If
End With
With e.Form.Controls("textbox4")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "zdr=\'" & .Value & "\'"
End If
End With
With e.Form.Controls("textbox2")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "gg=\'" & .Value & "\'"
End If
End With
With e.Form.Controls("DateTimePicker1")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "rq >= #" & .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 & "rq<= #" & .Value & "#"
End If
End With
Tables("客户订单下拉_Table1").filter =Filter And " [JA] = \'N\'"
-- 发布时间：2018/7/16 9:20:00
--
1、Dim Filter As String = "[JA] = \'N\'"
2、Tables("客户订单下拉_Table1").filter = Filter