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

如

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"
                If e.newvalue Like "R-*"= False Then
                    e.NewValue = "R-" & e.NewValue
                End If
            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

那你在startEdit的时候，写代码

systemready = false

If e.Col.Name = "模块名称" 

    If e.Row(e.Col.Name) like "R-*" Then
        e.Row(e.Col.Name) = e.Row(e.Col.Name).SubString(2)

    End If

End If
systemready = true

做不到你想做的，上面的方法已经是最好的了。