以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]DataTable查找符合条件的行Find语句遇特殊符号出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151122)

--  作者:WELOVEFOX
--  发布时间:2020/6/15 17:44:00
--  [求助]DataTable查找符合条件的行Find语句遇特殊符号出错

图片点击可在新窗口打开查看此主题相关图片如下:2020-06-15_17-33-18.png
图片点击可在新窗口打开查看




图片点击可在新窗口打开查看此主题相关图片如下:2020-06-15_17-39-10.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:2020-06-15_17-40-51.png
图片点击可在新窗口打开查看

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



Dim s As String = Trim(e.Form.Controls("TextBox1").TEXT)
DataTables("表A").Save
Dim dr As DataRow
dr = DataTables("表A").Find("[备注] = \'" & s & "\'")  \'主要出错,就是这个s变量里面出现了\'或多个\',导致参数 \'" & s & "\'",没有执行下去,所以此处求助下,看是BUG,还是方法不对
If dr IsNot Nothing Then
    MessageBox.Show("YES 存在相同内容!")
Else
    
    MessageBox.Show("NO 不存在相同内容!")
    
End If
[此贴子已经被作者于2020/6/15 17:44:28编辑过]

--  作者:有点蓝
--  发布时间:2020/6/15 20:03:00
--  
dr = DataTables("表A").Find("[备注] = \'" & s.replace("\'","\'\'") & "\'") 
--  作者:WELOVEFOX
--  发布时间:2020/6/16 8:42:00
--  
谢谢蓝板图片点击可在新窗口打开查看