主题：[求助]筛选

此主题相关图片如下：qq图片20140722103715.jpg

 

想做这样一个总筛选，但是没有思路。

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

点击浏览该文件:管理项目1.table

这个代码无效，是不是漏了什么？

 

 

Dim Filter As String
With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter = "型号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("cmbCustomer")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("cmbEmployee")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "维修员 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("textbox1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "序列号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("comboBox1")
    If .Value IsNot Nothing 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
If Filter > "" Then
    Tables("检测维修单").Filter = Filter
End If

 

  

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

点击浏览该文件:管理项目1.table

此主题相关图片如下：qq图片20140722133551.jpg

版主们来看看捏

好用了，但是做不到关键字筛选，比如维修员是  鲍圣   得全打上， 打个鲍就出不来，怎么能做到模糊筛选呢