Foxtable(狐表)用户栏目专家坐堂 → [求助]复合筛选的代码,请指教


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

主题:[求助]复合筛选的代码,请指教

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


加好友 发短信
等级:幼狐 帖子:134 积分:1313 威望:0 精华:0 注册:2012/10/31 14:21:00
[求助]复合筛选的代码,请指教  发帖心情 Post By:2012/11/12 11:56:00 [只看该作者]

图片点击可在新窗口打开查看

如图,筛选有二类条件,状态和分类

要示:

状态或者分类里面是复选是和的关系,

状态与分类之间是交叉的关系。

要求状态或者分类任何一类中,全选或全不选均是全选中的含义

 

请高手帮我检查下代码

-------------------------------------------

Tables("信息表").filter = ""
Dim hg As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Dim ds As WinForm.CheckBox = e.Form.Controls("CheckBox2")
Dim yqx As WinForm.CheckBox = e.Form.Controls("CheckBox3")
Dim filter1 As String

If hg.Checked Then
    If filter1 > "" Then
        filter1 = filter1 & " Or "
    End If
    filter1 = filter1 & " 状态 = '合格' "
End If

If ds.Checked Then
    If filter1 > "" Then
        filter1 = filter1 & " Or "
    End If
    filter1 = filter1 & " 状态 = '待审' "
End If

If yqx.Checked Then
    If filter1 > "" Then
        filter1 = filter1 & " Or "
    End If
    filter1 = filter1 & " 状态 = '己取消'"
End If

If hg.Checked = False AndAlso ds.Checked = False AndAlso  yqx.Checked = False Then
    filter1 = filter1 & " 状态 = '合格' or 状态 = '待审'  or 状态 = '己取消'"
End If

Dim gj As WinForm.CheckBox = e.Form.Controls("CheckBox4")
Dim yb As WinForm.CheckBox = e.Form.Controls("CheckBox5")
Dim filter2 As String

If ds.Checked Then
    If filter2 > "" Then
        filter2 = filter2 & " Or "
    End If
    filter2 = filter2 & " 分类 = '关键' "
End If

If yqx.Checked Then
    If filter2 > "" Then
        filter2 = filter2 & " Or "
    End If
    filter2 = filter2 & " 分类 = '一般'"
End If

If gj.Checked = False AndAlso yb.Checked = False Then
    filter2 = filter2 & " 分类 = '关键' or 分类 = '一般' "
End If

If filter1 > "" Then
    If filter2 > "" Then
        filter1 = "(" & filter1 & ")" & " And "  & "(" & filter2 & ")"
    End If
Else
    filter1 = filter2
End If

Tables("信息表").Filter =filter1 & " And " & filter2


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


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2012/11/12 11:58:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:幼狐 帖子:134 积分:1313 威望:0 精华:0 注册:2012/10/31 14:21:00
  发帖心情 Post By:2012/11/12 12:07:00 [只看该作者]

调试过,还是走不通呀

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


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2012/11/12 12:08:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:幼狐 帖子:134 积分:1313 威望:0 精华:0 注册:2012/10/31 14:21:00
  发帖心情 Post By:2012/11/12 12:12:00 [只看该作者]

谢谢楼上的兄弟,辛苦了,

脚本调试成功


 回到顶部