|
教程里面:我们希望直接在工具栏中输入内容，然后单击某个按钮，在当前列查找所输入的内容
'获得文本框中输入的内容,保存在变量Val中,实际编写代码的时候，组件名称应该改为真实的名称。
Dim strfind As RibbonMenu.TextBox = RibbonTabs("功能区1").Groups("功能组1").Items("工具栏1").Items("strfind")
Dim val As String = strfind.Text
With CurrentTable
Dim nm As String = .cols(.colsel).name
Dim index As Integer = .FindRow(nm & " = '"& val & "'",.position + 1,True) '这个是完全查找,我的问题:如果想在不同的表不同的列模糊查找该怎样改写代码呢?
If index >= 0 Then
.position = index
End If
End With
|
加好友 
发短信
Post By：2018/7/31 11:06:00 [显示全部帖子]
