以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么把指筛选并定位行？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104220)
--  作者：ufo20085
--  发布时间：2017/7/25 17:22:00
--  [求助]怎么把指筛选并定位行？
Table("test")中有A列，B列,C列,D列
想按一下查找按钮，查找出A列或B列或C列或D列中  包含 TextBox文本框中的文字，表格并定位到这行。
再按一下，定位到下一个符合条件的行。
这样的代码该怎么写。（不用Filter代码。因为filter是筛选出符合条件的行，其他行都隐藏。我不想隐藏行，只想定位到这些行）
--  作者：有点甜
--  发布时间：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
--  发布时间：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