主题：如何读取复选组合框来内容筛选数据

参考

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

大致代码 "机器名称 in ('" & 控件.Text.Replace(",", "','") & "')"

Dim Filter As String = "1=1"
With e.Form.Controls("机型名称1")
    If .Value IsNot Nothing Then
        Filter &= " and 机器名称 in ('" & .Text.Replace(",", "','") & "')"
    End If
End With
With e.Form.Controls("器件代码1")
    If .Value IsNot Nothing Then
        Filter &= " and 器件代码 in ('" & .Text.Replace(",", "','") & "')"
    End If
End With
With e.Form.Controls("器件名称1")
    If .Value IsNot Nothing Then
        Filter &= " and 器件名称 in ('" & .Text.Replace(",", "','") & "')"
    End If
End With

Tables("机型数据汇总").Filter = Filter

你7楼写法有问题。不能那样写。

直接拷贝6楼。