以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于字符串中的双引号的判断 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39142) |
-- 作者:yankunhao -- 发布时间:2013/8/16 15:26:00 -- 关于字符串中的双引号的判断 Dim Str1 As String = e.DataRow("part_spec")
请问以上代码应该如何写才正确呢? |
-- 作者:Bin -- 发布时间:2013/8/16 15:29:00 -- Dim Str1 As String = e.DataRow("part_spec") If Str1.Contains("""") Then \' 如果文本中包含双引号如:12356"456" Str1=Str1.Replace("""","""""") \' 那么文本变成:12356""456"" e.DataRow("part_spec") =Str1 End If |
-- 作者:yankunhao -- 发布时间:2013/8/16 15:41:00 -- 以下是引用Bin在2013-8-16 15:29:00的发言: Dim Str1 As String = e.DataRow("part_spec") If Str1.Contains("""") Then \' 如果文本中包含双引号如:12356"456" Str1=Str1.Replace("""","""""") \' 那么文本变成:12356""456"" e.DataRow("part_spec") =Str1 End If 谢谢! 我现在发现,将上面代码放在DataColChanged事件中是不行的 这样会另e.DataRow("part_spec")提示超过字段的长度,请问应该如何做才好? 我的目的是当字段中文本中包含双引号如:12356"456",就将它变这样的格式:12356""456"" |
-- 作者:yankunhao -- 发布时间:2013/8/16 15:57:00 -- 该问题现在解决了! |
-- 作者:lsy -- 发布时间:2013/8/16 16:06:00 -- Dim Str1 As String = e.DataRow("part_spec") If Str1.Contains("""""") Then Return ElseIf Str1.Contains("""") Then e.DataRow("part_spec") = Str1.Replace("""","""""") End If |