Foxtable(狐表)用户栏目专家坐堂 → CheckedComboBox复选组合框进行包含筛选,代码如何修改


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

主题:CheckedComboBox复选组合框进行包含筛选,代码如何修改

帅哥哟,离线,有人找我吗?
hbfnmxb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:538 积分:5999 威望:0 精华:0 注册:2008/9/7 20:15:00
CheckedComboBox复选组合框进行包含筛选,代码如何修改  发帖心情 Post By:2024/2/6 16:54:00 [只看该作者]

下面一段代码是复选组合框进行组合筛选时,对所选项进行的精确筛选,我想修改一个,只要包含所选项字符,进行筛选。如:选项中有,会计,在“专业类”列中,即有会计,也有会计学,把包含会计的,全部筛选出来,这里如何修改?谢谢老师

With e.Form.Controls("CheckedComboBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & " 专业类 in ('" & .Value.replace(",", "','") & "')"
        
    End If
End With

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107147 积分:544978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/6 17:11:00 [只看该作者]

With e.Form.Controls("CheckedComboBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "(专业类 like '%" & .Value.replace(",", "%' or 专业类 like '%") & "%')"
        
    End If
End With

 回到顶部
帅哥哟,离线,有人找我吗?
hbfnmxb
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:538 积分:5999 威望:0 精华:0 注册:2008/9/7 20:15:00
  发帖心情 Post By:2024/2/6 17:20:00 [只看该作者]

谢谢老师

 回到顶部