Foxtable(狐表)用户栏目专家坐堂 → [求助]功能区筛选


  共有2263人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
xuaky
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:34 积分:399 威望:0 精华:0 注册:2016/8/20 17:32:00
[求助]功能区筛选  发帖心情 Post By:2016/9/25 15:52:00 [只看该作者]

各位好,我在主窗口增设的筛选可以正常使用,把这个功能搬到功能区以后怎么编写代码都没有效果了,求前辈们指点
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:过程统计 (5) - 副本.table


 回到顶部
帅哥哟,离线,有人找我吗?
sjx71
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:476 积分:4602 威望:0 精华:0 注册:2013/5/22 15:32:00
  发帖心情 Post By:2016/9/25 17:35:00 [只看该作者]


你的状态按钮 ss 的click 事件代码中少了 两个星号

filter = ("[LOT批号] Like '" & lcc & "'"

改为 filter = ("[LOT批号] Like '*" & lcc & "'*") 就行了
 

 回到顶部
帅哥哟,离线,有人找我吗?
xuaky
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:34 积分:399 威望:0 精华:0 注册:2016/8/20 17:32:00
  发帖心情 Post By:2016/9/25 23:10:00 [只看该作者]

前辈啊,不行呢。改了以后点ss按钮还是没有反应,感觉像是执行filter的时候没有获取到功能区里面的textbox控件text属性。还是isnot nothing 设定也没反应....图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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),看看合成的筛选条件,就知道怎么回事了。


 回到顶部
帅哥哟,离线,有人找我吗?
xuaky
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:34 积分:399 威望:0 精华:0 注册:2016/8/20 17:32:00
  发帖心情 Post By:2016/9/27 23:19:00 [只看该作者]

谢谢

 回到顶部