主题：［求助］请帮我看一下这段查询代码

 报什么错？如何的不能筛选？

 代码没有错，对应例子发上来说明问题

  代码没有错。具体问题请上传例子

 试试这样写

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 e.Form.Controls("销售").Checked = True ' 如果付款状态选择了"销售"
          If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出库类型 = '销售'"
End If

Dim Filter As String = ""
With e.Form.Controls("系列名称")
    If .Value IsNot Nothing AndAlso .value <> "系列名称" Then
        Filter = "系列名称= '" & .Value & "'"
    End If
End With
With e.Form.Controls("种类名称")
    If .Value IsNot Nothing AndAlso .value <> "种类名称" Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "种类名称 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("型号")
    If .Value IsNot Nothing AndAlso .value <> "型号" Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "型号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "生产日期>= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "生产日期 <= #" & .Value & "#"
    End If
End With
With e.Form.Controls("StartDate1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "采集日期>= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "采集日期 <= #" & .Value & "#"
    End If
End With

With e.Form.Controls("StartDate2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出库日期>= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出库日期 <= #" & .Value & "#"
    End If
End With
With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing AndAlso .value <> "编号" Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "编号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("TextBox3")
    If .Value IsNot Nothing AndAlso .value <> "出库单号" Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出库单号 = '" & .Value & "'"
    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 e.Form.Controls("销售").Checked = True ' 如果付款状态选择了"销售"
          If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出库类型 = '销售出库'"
End If
If e.Form.Controls("领料").Checked = True ' 如果付款状态选择了"领料"
          If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出库类型 = '领料出库'"
End If
If e.Form.Controls("调拔").Checked = True ' 如果付款状态选择了"调拔"
          If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出库类型 = '调拔出库'"
End If

Tables("库存表").Filter = Filter
e.Form.Controls("TextBox1").Text = Tables("库存表").Rows.Count