主题：[求助]筛选

 全部的.Value改成.Text

 再有一个，你肯定有一个控件的名字写错了。

 你控件绝对写错了，请认真核对每一个控件的名称。

 实在不行，就请把例子发上来看看

Dim Filter As String
With e.Form.Controls("商品名称")
    If .value IsNot Nothing Then
        Filter = "商品名称 = '" & .Text & "'"
    End If
End With
With e.Form.Controls("客户名称")
    If .value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户名称 = '" & .Text & "'"
    End If
End With
With e.Form.Controls("ComboBox3")
    If .value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "来源 = '" & .Text & "'"
    End If
End With
With e.Form.Controls("开始日期")
    If .value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Text & "#"
    End If
End With
With e.Form.Controls("结束日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Text & "#"
    End If
End With
If e.Form.Controls("已付").Checked = True ' 如果付款状态选择了"已付"
          If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "已付款 = True"
End If
If e.Form.Controls("未付").Checked = True ' 如果付款状态选择了"未付"
          If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "已付款 = False Or 已付款 Is Null"
End If

If Filter > "" Then
    Tables("蓝峰管理_Table3").Filter = Filter
End If