在功能区“工作中心”--功能组“办理手续”--增加了一个项目“工具栏”名字是“查找”，在这个工具栏中放置了文本框“内容”检查框“系统编号”检查框“产权人姓名”和标准按钮“查找”，请问各位高手，我如何在“查找”按钮的事件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编辑过]
加好友 
发短信
Post By：2015/4/18 17:10:00 [只看该作者]
