以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]定位行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81033)
--  作者：荟美绘姿
--  发布时间：2016/2/16 23:28:00
--  [求助]定位行

With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] Like \'%湛江%\'") \'从 第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行。
    End If
End With

 

 

我想在[公司名称]列中以[目录窗口]中的Label2中的内容来查找并定位找到的行

以上代码如何改，请大侠指教，谢谢
--  作者：大红袍
--  发布时间：2016/2/16 23:52:00
--  

With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] Like \'%" & Forms("目录窗口").Controls("Label2").Text & "%\'") \'从 第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
    End If
End With
--  作者：荟美绘姿
--  发布时间：2016/2/17 0:07:00
--  
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.12.22.1
错误所在事件：ybchengxu,DoubleClick
详细错误信息：
Like 运算符中出错: 字符串模式“%澄交运稽罚字[2016]00004号%”无效。
--  作者：荟美绘姿
--  发布时间：2016/2/17 0:13:00
--  
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.12.22.1
错误所在事件：ybchengxu,DoubleClick
详细错误信息：
Like 运算符中出错: 字符串模式“%澄交运稽罚字[2016]00004号%”无效。
--  作者：Hyphen
--  发布时间：2016/2/17 8:44:00
--  
like中字符不能出现中括号[],只能用等号=

With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] = \'" & Forms("目录窗口").Controls("Label2").Text & "\'") \'从 第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
    End If
End With
--  作者：大红袍
--  发布时间：2016/2/17 9:12:00
--  
With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] Like \'%" & Forms("目录窗口").Controls("Label2").Text.Replace("[", "@").Replace("]", "#").Replace("@", "[[]").Replace("#", "[]]") & "%\'") \'从 第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
    End If
End With
--  作者：荟美绘姿
--  发布时间：2016/2/17 10:22:00
--  

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.12.22.1
错误所在事件：ybchengxu,DoubleClick
详细错误信息：
Like 运算符中出错: 字符串模式“%澄交运稽罚字[2016]00003号%”无效。

 

 

还是出现这个运行错误
--  作者：大红袍
--  发布时间：2016/2/17 10:26:00
--  
看 6楼 7楼，不可能报错啊
--  作者：荟美绘姿
--  发布时间：2016/2/17 10:28:00
--  

OK了,谢谢