Foxtable(狐表)用户栏目专家坐堂 → 字符型列顿号(、)变成问号(?)


  共有2263人关注过本帖树形打印复制链接

主题:字符型列顿号(、)变成问号(?)

帅哥哟,离线,有人找我吗?
蓝蚂蚁
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7909 威望:0 精华:0 注册:2016/6/11 11:10:00
字符型列顿号(、)变成问号(?)  发帖心情 Post By:2018/7/20 15:36:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:image 1.jpg
图片点击可在新窗口打开查看
规格型号列是字符类型,但输入“、”(顿号)时,它会自动变成“?”(问号),这个问题如何解决?谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/20 16:32:00 [只看该作者]

1、你datacolchanging、datacolchanged事件,写了什么代码?

 

2、新建一个列,输入值,也有问题?

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7909 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7909 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By: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 

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部