专家坐堂-[求助]如何编写查找代码？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- [求助]如何编写查找代码？
在功能区“工作中心”--功能组“办理手续”--增加了一个项目“工具栏”名字是“查找”，在这个工具栏中放置了文本框“内容”检查框“系统编号”检查框“产权人姓名”和标准按钮“查找”，请问各位高手，我如何在“查找”按钮的事件click中编写代码，实现：

1.在文本框中输入六位数字或产权人姓名后，在单选检查框（要求互相排斥），在数据表“十二组”中定位到对应的行？如果选择“系统编号”检查框，只在数据列“系统编号”数据列里查找，如果选择“产权人姓名”检查框，只在数据列“产权人”数据列里查找。

2.支持模糊查找，如产权人里有张三丰张三风张三峰只在文本框里输入张三，然后找到第一个，再按一下找到下一个。。没有了就返回第一。

3.定位要选中整行，才能进行核对和打印，这两个按钮已经做好了。

此主题相关图片如下：qq截图20150418165744.png

谢谢各位高手，我是个代码菜鸟。具体的效果看图。
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20150418165239.png

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

End If

End With

按照如下代码，在文本框里输入文本后可以在鼠标选定列实现精确查找了，但是我的要求是：1.点选检查框自动选定对应的列，再进行查找，而不用鼠标进行选择。2.支持模糊检索。3.如果找不到弹出对话框，提示。

[此贴子已经被作者于2015/4/19 16:30:17编辑过]