Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多项选择筛选查询问题？


  共有2417人关注过本帖树形打印复制链接

主题：多项选择筛选查询问题？
帅哥哟，离线，有人找我吗？
zsslly
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		多项选择筛选查询问题？  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2016/8/2 11:09:00 [只看该作者]

不好意思，我知道怎么改了！不知道怎么删帖子！还是要谢谢一下！

 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2016/8/2 12:29:00 [只看该作者]

谢谢大侠！

 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：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
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2016/8/2 16:40:00 [只看该作者]

求助？
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/2 17:00:00 [只看该作者]

or 开工情况 = '准备开工' or 开工情况 = '未开工' or 开工情况 Is not null)"

 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2016/8/2 18:01:00 [只看该作者]

or 开工情况 = '准备开工' or 开工情况 = '未开工' or 开工情况 Is not null)"

不可以，提示出错
 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2016/8/2 18:02:00 [只看该作者]

null后缺少运算符

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询