Foxtable(狐表)用户栏目专家坐堂 → FindRow方法,可不可以查找和任意列内容一样的行啊?


  共有6159人关注过本帖树形打印复制链接

主题:FindRow方法,可不可以查找和任意列内容一样的行啊?

美女呀,离线,留言给我吧!
jljacky
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:72 积分:625 威望:0 精华:0 注册:2013/2/15 16:30:00
FindRow方法,可不可以查找和任意列内容一样的行啊?  发帖心情 Post By:2013/5/3 11:27:00 [只看该作者]

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

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

 

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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:72 积分:625 威望:0 精华:0 注册:2013/2/15 16:30:00
  发帖心情 Post By:2013/5/3 11:32:00 [只看该作者]

自己顶

 回到顶部
美女呀,离线,留言给我吧!
jljacky
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:72 积分:625 威望:0 精华:0 注册:2013/2/15 16:30:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:72 积分:625 威望:0 精华:0 注册:2013/2/15 16:30:00
  发帖心情 Post By:2013/5/3 13:26:00 [只看该作者]

老是出来这个报错对话框
图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/5/3 14:34:00 [只看该作者]

可能你输入的内容有问题,搞不定就做个小例子发上来测试吧


 回到顶部
美女呀,离线,留言给我吧!
jljacky
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:72 积分:625 威望:0 精华:0 注册:2013/2/15 16:30:00
  发帖心情 Post By:2013/5/3 17:09:00 [只看该作者]

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

文件在这里,好心的同学帮我看看吧


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/3 17:30:00 [只看该作者]

你条件拼接的有问题.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:菜单设计.table


OR 是需要拼接进去的.

 回到顶部
帅哥哟,离线,有人找我吗?
muhua
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/5/3 17:32:00 [只看该作者]

用户已被锁定

 回到顶部
美女呀,离线,留言给我吧!
jljacky
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:72 积分:625 威望:0 精华:0 注册:2013/2/15 16:30:00
  发帖心情 Post By:2013/5/3 18:40:00 [只看该作者]

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


OR 是需要拼接进去的.

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


 回到顶部