Foxtable(狐表)用户栏目专家坐堂 → [求助]怎么把指筛选并定位行?


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

主题:[求助]怎么把指筛选并定位行?

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


加好友 发短信
等级:幼狐 帖子:196 积分:2919 威望:0 精华:0 注册:2016/8/31 14:05:00
[求助]怎么把指筛选并定位行?  发帖心情 Post By:2017/7/25 17:22:00 [只看该作者]

Table("test")中有A列,B列,C列,D列
想按一下查找按钮,查找出A列或B列或C列或D列中  包含 TextBox文本框中的文字,表格并定位到这行。
再按一下,定位到下一个符合条件的行。
这样的代码该怎么写。(不用Filter代码。因为filter是筛选出符合条件的行,其他行都隐藏。我不想隐藏行,只想定位到这些行)

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/25 17:44:00 [只看该作者]

参考代码

 

Dim str As String = "23"
Dim t As Table = Tables("表A")
Dim idx As Integer = t.findrow("iif(第一列 is null, '', 第一列) Like '%" & str & "%' or iif(第二列 is null, '', 第二列) Like '%" & str & "%' or iif(第三列 is null, '', 第三列) Like '%" & str & "%' ", t.Position+1, True)
t.Position = idx


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


加好友 发短信
等级:幼狐 帖子:196 积分:2919 威望:0 精华:0 注册:2016/8/31 14:05:00
  发帖心情 Post By:2017/7/25 17:46:00 [只看该作者]

以下是引用有点甜在2017/7/25 17:44:00的发言:

参考代码

 

Dim str As String = "23"
Dim t As Table = Tables("表A")
Dim idx As Integer = t.findrow("iif(第一列 is null, '', 第一列) Like '%" & str & "%' or iif(第二列 is null, '', 第二列) Like '%" & str & "%' or iif(第三列 is null, '', 第三列) Like '%" & str & "%' ", t.Position+1, True)
t.Position = idx


 回到顶部