Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选条件疑问


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

主题：筛选条件疑问
帅哥哟，离线，有人找我吗？
tuyage
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：155 积分：1096 威望：0 精华：0 注册：2014/8/14 8:38:00 		筛选条件疑问  发帖心情 Post By：2014/9/26 11:53:00 [只看该作者]

我的筛选条件总共有5个，5个条件里面如入任何一个筛选都可以筛选，但是筛选显示的结果只有5个单元格里都有内容的才会在结果中显示，什么情况。
我是用and连接表达式的，如果用Or直接就无法筛选。。哪里问题，下面是我的筛选表达式请参看。

Dim hyxm As WinForm.TextBox = e.Form.Controls("会员姓名")
Dim hykh As WinForm.TextBox = e.Form.Controls("会员卡号")
Dim hjgw As WinForm.ComboBox = e.Form.Controls("会籍顾问")
Dim hydh As WinForm.TextBox = e.Form.Controls("会员电话")
Dim hyjb As WinForm.ComboBox = e.Form.Controls("会员级别")

Tables("会员信息表").Filter = "会员姓名 like '*" & hyxm.Text & "*' and 会员卡号 like '*" & hykh.Text & "*' and 会籍顾问 like '*" & hjgw.Text & "*' and 手机号码 like '*" & hydh.Text & "*' and 会员级别 like '*" & hyjb.Text & "*'"

图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看



[此贴子已经被作者于2014-9-26 11:55:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/26 11:55:00 [只看该作者]

 这宗筛选，参考这里做

 

 http://www.foxtable.com/help/topics/1058.htm

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


加好友 发短信
等级：幼狐 帖子：155 积分：1096 威望：0 精华：0 注册：2014/8/14 8:38:00 		  发帖心情 Post By：2014/9/26 12:15:00 [只看该作者]

我参照那个写了如下代码，筛选不起作用啊

Dim Filter As String
With e.Form.Controls("ssjl")
    If .Value IsNot Nothing Then
        Filter = "教练姓名 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("kclx")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "私教类型 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("xydh")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "手机号码 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("xyxm")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "学员姓名 >= #" & .Value & "#"
    End If
End With
 回到顶部
帅哥哟，离线，有人找我吗？
tuyage
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：155 积分：1096 威望：0 精华：0 注册：2014/8/14 8:38:00 		  发帖心情 Post By：2014/9/26 12:20:00 [只看该作者]

能否在我原来的表达式中，把哪里改一下，使得如果表中某一个有筛选条件的单元格为空内容，还是可以通过其他条件筛选显示出来

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/26 14:01:00 [只看该作者]

 最后要写

 

Tables("会员信息表").Filter = Filter

 

 不会做的话，句上传例子。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/26 14:02:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("ssjl")
    If .Value IsNot Nothing Then
        Filter = "教练姓名 Like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("kclx")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "私教类型 Like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("xydh")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "手机号码 Like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("xyxm")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "学员姓名 Like '%" & .Value & "%'"
    End If
End With
 
Tables("会员信息表").Filter = Filter
 回到顶部
帅哥哟，离线，有人找我吗？
tuyage
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：155 积分：1096 威望：0 精华：0 注册：2014/8/14 8:38:00 		  发帖心情 Post By：2014/9/26 14:09:00 [只看该作者]

果然是这个的缘故啊，万能的甜老师，新人笨还望多包涵

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