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编辑过]