主题：[求助]

End With

With e.Form.Controls("cmbgc")

    If .Value IsNot Nothing Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "购车否 = '" & .Value & "'"

    End If

End With

If e.Form.Controls("rdos").Checked = True ' 如果付款状态选择了"已付"

    If Filter >"" Then

        Filter = Filter & " And "

    End If

    Filter = Filter & "是否模特 = True"

End If

If e.Form.Controls("rdof").Checked = True ' 如果付款状态选择了"未付"

    If Filter >"" Then

        Filter = Filter & " And "

    End If

    Filter = Filter & "是否模特 = False Or 是否模特 Is Null"

End If

If e.Form.Controls("rdotz").Checked = True ' 如果付款状态选择了"已付"

    If Filter >"" Then

        Filter = Filter & " And "

    End If

    Filter = Filter & "是否体验团 = True"

End If

If e.Form.Controls("rdotzf").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