主题：关于数据筛选

Dim Filter As String
With e.Form.Controls("leixingComboBox")
    If .Value IsNot Nothing Then
        Filter = "类型= '" & .Value & "'"
    End If
End With
If e.Form.Controls("yibangding").Checked = True ' 如果客户绑定状态选择了"已绑定"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "是否绑定= True"
End If
If e.Form.Controls("weibangding").Checked = True ' 如果客户绑定状态选择了"未绑定"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "(是否绑定 = False Or 是否绑定 Is Null)"
End If
If e.Form.Controls("yiguoqi").Checked = True ' 如果是否过期状态选择了"已过期"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "是否过期= True"
End If
If e.Form.Controls("weiguoqi").Checked = True ' 如果是否过期状态选择了"未过期"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "(是否过期 = False Or 是否过期 Is Null)"
End If
If e.Form.Controls("keyixufei").Checked = True ' 如果续费状态选择了"已续费"
    If Filter >"" The
        Filter = Filter & " And "
    End If
    Filter = Filter & "是否可以续费= True"
End If
If e.Form.Controls("bukexufei").Checked = True ' 如果续费状态选择了"未续费"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "(是否可以续费 = False Or 是否可以续费 Is Null)"
End If
If Filter > "" Then
    Tables("流量卡资料").Filter = Filter
End If
e.Form.Controls("shaixuanhou").text = Tables("流量卡资料").Rows.Count & " 张流量卡"

最后你的代码是怎么写的？2楼的代码，不应该有问题的。全部肯定能筛选出来。