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

各位好，我在主窗口增设的筛选可以正常使用，把这个功能搬到功能区以后怎么编写代码都没有效果了，求前辈们指点

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

点击浏览该文件:过程统计 (5) - 副本.table

 

前辈啊，不行呢。改了以后点ss按钮还是没有反应，感觉像是执行filter的时候没有获取到功能区里面的textbox控件text属性。还是isnot nothing 设定也没反应....

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

 

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)，看看合成的筛选条件，就知道怎么回事了。

谢谢