主题：[求助]筛选

此主题相关图片如下：窗口.png

Dim Filter As String
With e.Form.Controls("商品名称")
    If .Value IsNot Nothing Then
        Filter = "商品名称 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("客户名称")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户名称 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("来源")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "来源 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("开始日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("结束日期")
    If .Value IsNot Nothing 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 Filter > "" Then
    Tables("蓝峰管理_Table3").Filter = Filter
End If

 

 

 

谢谢老师帮我修改一下上面的代码

 

 全部的.Value改成.Text

 

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

此主题相关图片如下：360软件小助手截图20140910212033.png

 

还是不行

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

 

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

问题出在蓝峰管理表的蓝峰管理窗口的进销存页面集合里的筛选按钮中

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:蓝峰净水.table

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