主题：多字段查询

参考

 

http://www.foxtable.com/webhelp/scr/1058.htm

 

比如

 

Filter = Filter & "客户 = '" & .Value & "'"

 

改成

 

Dim str As String = "1=2"

For Each s As String in .Value.split(",")

    str &= " or 客户 = '" & s & "'"

Next

Filter = Filter & " (" & str & ") "

为了组合字符串，最终合成如

 

1=2 or 第一列='123' or 第一列='abc'

 

这样就不需要处理最前面一个or，当然你删掉1=2也行，同时要删除or

最后msgbox(str)弹出什么？

 

或者，你做一个实例发上来测试。

改成

 

With e.Form.Controls("DropBox1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Dim str As String = "5=2"
        For Each s As String In .Value.split(",")
            str &= " or 故障原因 like '%" & s & "%'"    
        Next
        Filter = Filter & " (" & str & ") "
    End If
End With

或者

 

改成

 

With e.Form.Controls("DropBox1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Dim str As String = "1=1"
        For Each s As String In .Value.split(",")
            str &= " and 故障原因 like '%" & s & "%'"    
        Next
        Filter = Filter & " (" & str & ") "
    End If
End With

1、自带的数据库，可以在局域网里用（设置共享文件夹，把项目放在里面，大家都打开这个项目）；

 

2、建立弄成access或者sqlserver数据库；其中，sqlserver可以在互联网中使用；

 

3、建议把【网络与数据源】一章，看完 http://www.foxtable.com/webhelp/scr/1420.htm

 

Dim Filter As String
With e.Form.Controls("型号")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Dim str As String = "1=2"
        For Each s As String In .Value.split(",")
            str &= " or 型号 like '%" & s & "%'"
        Next
        Filter = Filter & " (" & str & ") "
    End If
End With
With e.Form.Controls("规格1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Dim str As String = "1=2"
        For Each s As String In .Value.split(",")
            str &= " or 规格 like '%" & s & "%'"
        Next
        Filter = Filter & " (" & str & ") "
    End If
End With
If Filter > "" Then
    Tables("表A").Filter = Filter
End If

With e.Form.Controls("规格1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Dim str As String = "1=1"
        For Each s As String In .Value.split(",")
            str &= " and 规格 like '%" & s & "%'"
        Next
        Filter = Filter & " (" & str & ") "
    End If
End With