Foxtable(狐表)用户栏目专家坐堂 → [求助]组合筛选问题


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

主题:[求助]组合筛选问题

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


加好友 发短信
等级:小狐 帖子:316 积分:2899 威望:0 精华:0 注册:2009/7/25 18:29:00
[求助]组合筛选问题  发帖心情 Post By:2019/1/15 9:34:00 [只看该作者]

各位老师早上好!!
我这有一个"证书查询“窗口的组合筛选,总是达不到效果,不知错在哪里,请老师指教,谢谢!!

图片点击可在新窗口打开查看此主题相关图片如下:mo`8u~ha8@k@)wx{s5u8.png
图片点击可在新窗口打开查看
在“确定筛选”按钮中的代码如下:最后的' Tables("证书查询_Table1").Filter = Filter,提示是找不到”证书查询_Table1“这个表,用Tables("员工资料.资质证件").Filter = Filter,又没有反应,不知如何处理了,谢谢老师们!
'-------------根据选择条件筛选
Dim Filter As String
With e.Form.Controls("cmbZJLX")
    If .Value IsNot Nothing Then
        Filter = "证件类型 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("cmbZJZT")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "状态 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("cmbZSJB")
    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
 Tables("员工资料.资质证件").Filter = Filter

End If

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


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

代码没问题。你右边的表,请直接绑定 资质证件 表,而不是关联表。

 

然后写代码

 

msgbox(filter)

e.form.controls("Table1").table.Filter = Filter


 回到顶部