主题：[求助]请教多种筛选组合使用的代码

不是，你没看清楚我说的。

我是说二类条件选择，

如果其中一类不选则另一个不管怎么选都是空。

能不能调成，某类全不选则等同于全选？

 

帮我看看这个脚本能成不

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 filter1 > "" Then
    If hg.Checked Then
        filter1 = filter1 & " or 状态 = '合格' "
    End If
   
    If ds.Checked Then
        filter1 = filter1 & " or 状态 = '待审' "
    End If
   
    If yqx.Checked Then
        filter1 = filter1 & " or 状态 = '己取消'"
    End If
    Tables("信息表").Filter = filter1
Else
    Tables("信息表").Filter = ""
End If

 

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 = "1=2"

 

If hg.Checked then
    filter1 = filter1 & " or 状态 = '合格' "
End If

If ds.Checked then
    filter1 = filter1 & " or 状态 = '待审' "
End If

If yqx.Checked then
    filter1 = filter1 & " 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 = "1=2"

If gj.Checked then
    filter2 = filter2 & " or 分类 = '关键' "
End If

If yb.Checked then
    filter2 = filter2 & " or 分类 = '一般'"
End If

Dim filter As String

If filter1 <> "1=2" Then

    filter = "(" & filter1 & ") " 

Else

    filter = "1=1"

End If

If filter2 <> "1=2" Then filter = "And (" & filter & filter2 & ")"

Tables("信息表").Filter = filter