主题：[求助]功能区筛选

二楼说的没错，漏掉*了：

Dim dt As Integer =Tables("固晶").Rows.Count
Dim lcc As String = RibbonTabs("da")("search")("lot").Text
Dim pcc As String = RibbonTabs("da")("search")("product").Text
Dim filter As String
With Tables("固晶")
    If lcc >"" Then
        filter = ("[LOT批号] Like '*" & lcc & "*'")
        Tables("固晶").Filter = filter
    End If
End With

其实这种问题，你很好解决，  MessageBox.show(filter)，看看合成的筛选条件，就知道怎么回事了。