主题：[求助]新增行自动增加R-，光标定位到-后，并且之前的R-无法删除。

datacolchanging代码：

比如用户名是jiangxiaogang@bdcom.com.cn   新增行在模块名称列输入hal，自动改为了R-hal。

现在想改为新增行后自动输入了R-，且R-不能删除，光标自动定位到R-后，然后输入hal。

If e.DataCol.Name = "模块名称" Then
    If e.NewValue IsNot Nothing Then
        Select Case user.Name
            Case "jiangxiaogang@bdcom.com.cn","fengsongbai@bdcom.com.cn","fanghao@bdcom.com.cn","liushuangyu@bdcom.com.cn","zhouyinghuan@bdcom.com.cn"
                e.NewValue = "R-" & e.NewValue
            Case "sunxi@bdcom.com.cn","liyishui@bdcom.com.cn","xiejian@bdcom.com.cn","dengkai@bdcom.com.cn","liuqiang@bdcom.com.cn"
                e.NewValue = "S-" & e.NewValue
            Case "wangzhimin@bdcom.com.cn"
                e.NewValue = "OLT-" & e.NewValue
            Case "wangjingfu@bdcom.com.cn"
                e.NewValue = "ONU-" & e.NewValue
        End Select
    End If
End If