以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  FindRow方法,可不可以查找和任意列内容一样的行啊?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32498)
--  作者：jljacky
--  发布时间：2013/5/3 11:27:00
--  FindRow方法,可不可以查找和任意列内容一样的行啊?

下面的代码是帮助文件里面的,我现在想达到的效果是在查找里面输入的内容和任意列的内容一样就定位到该行(现在只对当前列有效),可不可以做到啊?

实在是想不出来改怎么改代码,求高手帮我看看吧...

 

Dim Val As String = RibbonTabs("功能区1").Groups("功能组1").Items("工具栏1").Items("StringToFind").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
--  作者：Bin
--  发布时间：2013/5/3 11:30:00
--  
With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] Like \'*某某*\' and [负责人] like \'*某某*\'", .Position + 1, True ) \'从当前行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行。
    End If
End With
以此类推
--  作者：jljacky
--  发布时间：2013/5/3 11:32:00
--  
自己顶
--  作者：jljacky
--  发布时间：2013/5/3 13:17:00
--  

帮我看卡是这样写吗,好象也不行啊

Dim Val As String = RibbonTabs("").Groups("1").Items("1").Items("StringToFind").Text

Dim Index As Integer

With CurrentTable

Index = .FindRow(.Cols(0).Name & " = \'" & Val & "\'" Or .Cols(1).Name & " = \'" & Val & "\'" Or .Cols(2).Name & " = \'" & Val & "\'", .Position + 1,True)

If Index >= 0 Then

.Position = Index

End If

End With
--  作者：jljacky
--  发布时间：2013/5/3 13:26:00
--  

老是出来这个报错对话框
图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2013/5/3 14:34:00
--  

可能你输入的内容有问题，搞不定就做个小例子发上来测试吧
--  作者：jljacky
--  发布时间：2013/5/3 17:09:00
--  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:菜单设计.table

文件在这里,好心的同学帮我看看吧
--  作者：Bin
--  发布时间：2013/5/3 17:30:00
--  
你条件拼接的有问题.
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:菜单设计.table


OR 是需要拼接进去的.
--  作者：jljacky
--  发布时间：2013/5/3 18:40:00
--  
以下是引用Bin在2013-5-3 17:30:00的发言：
你条件拼接的有问题.
 下载信息  [文件大小：404.0 KB  下载次数：1]
图片点击可在新窗口打开查看点击浏览该文件:菜单设计.table


OR 是需要拼接进去的.

我的版本不打不开,能不能存个低版本的给我,谢谢