主题：[求助] 怎么找出适合多个场所应用的产品呢？

合成这样的条件，如

"应用场所 like '%酒店%' or 应用场所 like '%餐厅%' or 应用场所 like '%快餐%'"

写代码这样写，如

Dim str As String = "酒店,餐厅"
Dim filter As String = ""
If str > "" Then
    For Each s As String In str.split(",")
        filter &= " or 应用场所 like '%" & s & "%'"
    Next
End If
filter = filter.SubString(3)
msgbox(filter)

Dim str As String = Forms("窗口A").Controls("CheckedListBox1").Value
Dim filter As String = ""
If str > "" Then
    For Each s As String In str.split(",")
        filter &= " or 应用场所 like '%" & s & "%'"
    Next
End If
filter = filter.SubString(3)
msgbox(filter)

Tables("表C").filter = filter

Dim str As String = Forms("窗口A").Controls("CheckedListBox1").Value
Dim filter As String = ""
If str > "" Then
    For Each s As String In str.split(",")
        filter &= " and 应用场所 like '%" & s & "%'"
    Next
End If
filter = filter.SubString(4)
msgbox(filter)

Tables("表C").filter = filter

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

改成

Dim str As String = Forms("窗口A").Controls("CheckedListBox1").Value
Dim filter As String = "型号选择 = True"
If str > "" Then
    For Each s As String In str.split(",")
        filter &= " and 应用场所 like '%" & s & "%'"
    Next
End If
msgbox(filter)

Tables("表C").filter = filter

不需要删除，也不能删除。清空内容即可。

是的。你没有权限删除帖子的。

没看懂你的意思。请具体说明要做什么，或者上传实例测试。

Dim str As String = Forms("窗口A").Controls("CheckedListBox1").Value
Dim filter As String = "型号选择 = True"
If str > "" Then
    For Each s As String In str.split(",")
        filter &= " and 应用场所 like '%" & s & "%'"
    Next
End If
msgbox(filter)

Tables("表C").filter = filter

If Tables("表C").rows.count = 0 then

    msgbox("没有找到内容")

End If

If Tables("表C").findrow("型号选择 = true") < 0 Then

End If

或者

If dataTables("表C").find("型号选择 = true") is nothing Then

End If

1、只要CheckedListBox1文本框里面的值还在，打开后，肯定会勾选的。

除非你清空了内容，或者有其它代码清空了内容。

2、写代码

For Each r As Row In Tables("表C").Rows
    r("型号选择") = False
Next