专家坐堂-[求助]Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101100)

--  作者：这个狐表不简单
--  发布时间：2017/5/25 1:54:00
--  [求助]

Dim strfind As RibbonMenu.TextBox = RibbonTabs("日常工作")("功能组1")("日常")("strfind")
Dim val As String = strfind.Text
With CurrentTable
Dim nm As String = .Cols(.Colsel).Name
Dim Index As Integer = .FindRow(nm & " = \'", .Position +1,True)
If Index >=0 Then
.Position = Index
End If
End With
以上代码输入无误，运行实验时出现：
错误所在事件：菜单,Find,Click
详细错误信息：
表达式包含无效的字符串常量: \'。这是为啥呀？

--  作者：ycli368
--  发布时间：2017/5/25 1:59:00
--
.FindRow(nm & " = \'", .Position +1,True)

nm & "=\'" 这里一个单引号，后面没有配对的

--  作者：这个狐表不简单
--  发布时间：2017/5/25 2:30:00
--
我把单引号去了之后是出现：
语法错误:“=”运算符后缺少操作数。

--  作者：有点色
--  发布时间：2017/5/25 10:38:00
--

Dim strfind As RibbonMenu.TextBox = RibbonTabs("日常工作")("功能组1")("日常")("strfind")

Dim val As String = strfind.Text

With CurrentTable

Dim nm As String = .Cols(.Colsel).Name

Dim Index As Integer = .FindRow(nm & " like \'%" & val & "%\'", .Position +1,True)

If Index >=0 Then

.Position = Index

End If

End With