以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何实现模糊查找  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=67385)
--  作者：老奤
--  发布时间：2015/4/23 11:57:00
--  [求助]如何实现模糊查找
With Tables("十二组")
    Dim c As Integer = .Cols("产权人").Index
    .Select(0,c,.rows.count - 1,c)
End With
Dim Val As String = RibbonTabs("工作中心").Groups("办理手续专区").Items("查产权").Items("产权人").Text
Dim Index As Integer
With CurrentTable
    Index = .FindRow(.Cols(.ColSel).Name & " = \'" & Val & "\'", .Position + 1,True) 
    If Index >= 0 Then
       .Position = Index
Else
 messagebox.show("我已穷尽所能,没有找到您要查的户呀,产权人如果死亡的需要注明哦!")
     End If
End With

各位老师：上面的代码是获取文本框里的内容，然后精确查找定位到行，如果实现包含文本框内容定位到第一个符合条件行，然后点击超找，在定位到下一个符合条件的行，怎么弄？
也就是在产权人这一列里有张三风  张三疯 张三峰 这三个人，如果我输入张三 然后查找它先定位到张三风  再查找定位到张三疯。。。循环。


还有一个问题，文本框里我输入张三后自动出现张三风  张三疯 张三峰供选择是不是要用别的菜单组件？
[此贴子已经被作者于2015/4/23 12:03:23编辑过]
--  作者：Bin
--  发布时间：2015/4/23 11:58:00
--  
http://www.foxtable.com/help/topics/0553.htm