- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 字符型列顿号（、）变成问号（？） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122200)
-- 发布时间：2018/7/20 15:36:00
-- 字符型列顿号（、）变成问号（？）
此主题相关图片如下：image 1.jpg
规格型号列是字符类型，但输入“、”（顿号）时，它会自动变成“？”（问号），这个问题如何解决？谢谢
-- 发布时间：2018/7/20 16:32:00
--
1、你datacolchanging、datacolchanged事件，写了什么代码？
2、新建一个列，输入值，也有问题？
-- 发布时间：2018/7/20 16:38:00
--
datacolchanged事件有如下代码：
If e.DataCol.Name = "规格型号" Then
Dim Val2 As String
Dim st55 As String=e.DataRow("规格型号")
Val2 = StrToNarrow(st55)
e.DataRow("规格型号")=val2
End If
-- 发布时间：2018/7/20 16:46:00
--
借用此贴再问一个问题，这个问题跟本帖主题无关的
DataColChanging中的代码：
If e.DataCol.Name = "名称" Then
Dim gs As String=e.NewValue
If Tables("资质").Cols.Contains("gs")=False Then ‘（在名称列中输入一个公司的名称（如：广东深圳），然后从【资质】表中找是否有列名为“广东深圳”）’ 这里红色字体应该如果写？
代码1.......
Else
代码2......
End If
end
-- 发布时间：2018/7/20 17:35:00
--
以下是引用蓝蚂蚁在2018/7/20 16:38:00的发言：
datacolchanged事件有如下代码：
If e.DataCol.Name = "规格型号" Then
Dim Val2 As String
Dim st55 As String=e.DataRow("规格型号")
Val2 = StrToNarrow(st55)
e.DataRow("规格型号")=val2
End If
改成
\'\'\'
If e.DataCol.Name = "规格型号" Then
Dim Val2 As String
Dim st55 As String=e.DataRow("规格型号")
Val2 = StrToNarrow(st55.replace("、", "@")).replace("@", "、")
e.DataRow("规格型号")=val2
End If