- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]功能区筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90923)
-- 发布时间：2016/9/25 15:52:00
-- [求助]功能区筛选
各位好，我在主窗口增设的筛选可以正常使用，把这个功能搬到功能区以后怎么编写代码都没有效果了，求前辈们指点
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:过程统计 (5) - 副本.table |
-- 发布时间：2016/9/25 17:35:00
--
你的状态按钮 ss 的click 事件代码中少了 两个星号
filter = ("[LOT批号] Like \'" &
lcc & "\'")
改为 filter = ("[LOT批号] Like \'*" &
lcc & "\'*") 就行了
-- 发布时间：2016/9/25 23:10:00
--
前辈啊，不行呢。改了以后点ss按钮还是没有反应，感觉像是执行filter的时候没有获取到功能区里面的textbox控件text属性。还是isnot nothing 设定也没反应....
-- 发布时间：2016/9/26 8:21:00
--
二楼说的没错，漏掉*了：
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)，看看合成的筛选条件，就知道怎么回事了。
-- 发布时间：2016/9/27 23:19:00
--
谢谢