Foxtable(狐表)用户栏目专家坐堂 → [求助]有关CheckedComboBox复选框问题


  共有2746人关注过本帖平板打印复制链接

主题:[求助]有关CheckedComboBox复选框问题

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


加好友 发短信
等级:婴狐 帖子:20 积分:230 威望:0 精华:0 注册:2021/12/12 17:28:00
[求助]有关CheckedComboBox复选框问题  发帖心情 Post By:2021/12/12 18:42:00 [只看该作者]

老师你好,我想做一个CheckedComboBox条件筛选。

图片点击可在新窗口打开查看此主题相关图片如下:123.jpg
图片点击可在新窗口打开查看
比如我在CheckedComboBox里选中语文和英语,那么列名"三大科优势"里符合条件的是全部,语文,英语,语文或数学,数学或英语,关键是语文和数学不要筛选出来(这两科都是优秀才行),只有在CheckedComboBox里选中语文和数学,那么除了全部,语文,数学,语文或数学,数学或英语,这个时候语文和数学才符合条件一起筛选出学生名单来。按钮的代码按照示例
Dim Filter As String = "1=1"
With e.Form.Controls("CheckedComboBox1")
    If .Value <> Nothing Then
        Filter &= " and 三大科优势 in ('" & .Value.replace(",", "','") & "')"
    End If
End With

Tables("三大科学生名单表").Filter = Filter
不知道怎么改了,请老师帮忙,谢谢!

 回到顶部
总数 12 1 2 下一页