专家坐堂-多项选择筛选查询问题？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多项选择筛选查询问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88406)

--  作者：zsslly
--  发布时间：2016/8/2 11:02:00
--  多项选择筛选查询问题？
如图，一个窗口中的设计是这样的：

此主题相关图片如下：qq截图20160802105051.jpg

此主题相关图片如下：qq截图20160802101653.jpg

“多项查询”代码设计如下：
Dim Filter As String
With e.Form.Controls("项目经理")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter &= "项目经理 in (\'" & .Value.Replace(",", "\',\'") & "\')"
End If
End With
With e.Form.Controls("设计师")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter &= "设计师 in (\'" & .Value.Replace(",", "\',\'") & "\')"
End If
End With

With e.Form.Controls("开工起始")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "开工日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("开工结束")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "开工日期 <= #" & .Value & "#"
End If
End With

If Filter > "" Then
Tables("开工日期表_Table1").Filter = Filter
End If

现在我要添加一个DropDownBox控件，这个控件的设置也已经设置好了，但不知道应该怎么添加进这组代码中，求助？

[此贴子已经被作者于2016/8/2 11:04:12编辑过]

--  作者：zsslly
--  发布时间：2016/8/2 11:09:00
--
不好意思，我知道怎么改了！不知道怎么删帖子！还是要谢谢一下！

--  作者：zsslly
--  发布时间：2016/8/2 11:18:00
--

Dim Filter As String
With e.Form.Controls("小区地址")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter &= "小区地址 in (\'" & .Value.Replace(",", "\',\'") & "\')"
End If
End With
With e.Form.Controls("项目经理")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter &= "项目经理 in (\'" & .Value.Replace(",", "\',\'") & "\')"
End If
End With
With e.Form.Controls("设计师")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter &= "设计师 in (\'" & .Value.Replace(",", "\',\'") & "\')"
End If
End With
With e.Form.Controls("工地进度")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter &= "工地进度 in (\'" & .Value.Replace(",", "\',\'") & "\')"
End If
End With

With e.Form.Controls("开工起始")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "开工日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("开工结束")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "开工日期 <= #" & .Value & "#"
End If
End With

If Filter > "" Then
Tables("设计师工地进度汇总_Table1").Filter = Filter
End If

这段代码和下面的这个代码能不能合并，应该如何合并，求助？
Tables("设计师工地进度汇总_Table1").Filter = "Not (操作性 = \'预签\'or 操作性 = \'等待中\'or 操作性 = \'放一下\'or 操作性 = \'可操作\'or 操作性 = \'跑单\' or 操作性 = \'预收设计\'or 操作性 = \'未知\'or 操作性 = \'问题单\')"
下面的这段代码是当窗口打开后afterload中执行的，上面的代码是在窗口中执行的筛选代码，但没有加入afterload中的代码结果，所以想要合并两个代码一起执行，求助？
求大侠指点？

--  作者：Hyphen
--  发布时间：2016/8/2 11:28:00
--

If Filter > "" Then
Tables("设计师工地进度汇总_Table1").Filter = Filter & " and Not (操作性 = \'预签\'or 操作性 = \'等待中\'or 操作性 = \'放一下\'or 操作性 = \'可操作\'or 操作性 = \'跑单\' or 操作性 = \'预收设计\'or 操作性 = \'未知\'or 操作性 = \'问题单\')"
End If

--  作者：zsslly
--  发布时间：2016/8/2 12:29:00
--
谢谢大侠！

--  作者：zsslly
--  发布时间：2016/8/2 15:30:00
--

If Filter > "" Then
Tables("设计师工地进度汇总_Table1").Filter = Filter & " and Not (操作性 = \'等待中\'or 操作性 = \'放一下\'or 操作性 = \'可操作\'or 操作性 = \'跑单\' or 操作性 = \'预收设计\'or 操作性 = \'未知\'or 操作性 = \'问题单\' or 开工情况 = \'确认时间\' or 开工情况 = \'准备开工\' or 开工情况 = \'未开工\' or 开工情况 = \'Is not null\')"
End If

这个代码中的最后Is not null应改怎么表式?

--  作者：zsslly
--  发布时间：2016/8/2 16:40:00
--
求助？

--  作者：Hyphen
--  发布时间：2016/8/2 17:00:00
--
or 开工情况 = \'准备开工\' or 开工情况 = \'未开工\' or 开工情况 Is not null)"

--  作者：zsslly
--  发布时间：2016/8/2 18:01:00
--
or 开工情况 = \'准备开工\' or 开工情况 = \'未开工\' or 开工情况 Is not null)"

不可以，提示出错

--  作者：zsslly
--  发布时间：2016/8/2 18:02:00
--
null后缺少运算符