在功能区“工作中心”--功能组“办理手续”--增加了一个项目“工具栏”名字是“查找”,在这个工具栏中放置了文本框“内容”检查框“系统编号”检查框“产权人姓名”和标准按钮“查找”,请问各位高手,我如何在“查找”按钮的事件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编辑过]