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

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

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

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

 参考

http://www.foxtable.com/help/topics/1058.htm

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

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

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