- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 菜单编辑框筛选问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7759)
-- 发布时间：2010/8/2 20:56:00
-- 菜单编辑框筛选问题
我在菜单中加一个功能区“数据库”、功能组“产品信息”、工具栏“图号”、文本框“图号”、标准按钮“FinxNext”。在按钮“FinxNext”的Click事件中加入如下代码：
Dim Val As String = RibbonTabs("数据库")("产品信息")("图号").Value
Dim Index As Integer
With CurrentTable
Index = .FindRow(.Cols(.ColSel).Name & " Like \'" & Val & "\'", .Position + 1,True)
If Index >= 0 Then
.Position = Index
End If
End With
不知错在哪里，怎么不能筛选。
-- 发布时间：2010/8/2 21:08:00
--
文本框的值为Text，如：RibbonTabs("数据库")("产品信息")("图号").Text
既是Like应该要加上*符号吧，如：Index = .FindRow(.Cols(.ColSel).Name & " Like \'*" & Val & "*\'", .Position + 1,True)
-- 发布时间：2010/8/2 21:14:00
--
还是不对：
Dim Val As String = RibbonTabs("数据库")("产品信息")("图号").Text
Dim Index As Integer
With CurrentTable
Index = .FindRow(.Cols(.ColSel).Name & " Like \'*" & Val & "\'*", .Position + 1,True)
If Index >= 0 Then
.Position = Index
End If
End With
此主题相关图片如下：未命名.gif
-- 发布时间：2010/8/2 21:27:00
--
*符号放错地了
-- 发布时间：2010/8/2 21:48:00
--
C版，还是不行，出错窗口一样
-- 发布时间：2010/8/2 21:59:00
--
Like只能针对字符型数据，如果你选定的列是数值型，执行代码后肯定出错。
-- 发布时间：2010/8/2 22:13:00
--
我要筛选的是字符型的列
-- 发布时间：2010/8/3 8:23:00
--
问题出在这一句：
Dim Val As String = RibbonTabs("数据库")("产品信息")("图号").Text
引用位置有误，根据错误提示，图号是个工具栏
-- 发布时间：2010/8/3 9:35:00
--
哦，是我少了一个定位，工具栏名“图号”，文本框名也是“图号”，搞定，谢谢
-- 发布时间：2010/8/3 9:37:00
--
如果要把以上代码改成当前表当前列的帅选代码，应该怎么改，谢谢