[求助]新增行自动增加R-，光标定位到-后，并且之前的R-无法删除。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

以下是引用大红袍在2015/8/27 10:34:00的发言：

如

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

这样并没有实现不能删除R-，和光标自动定位到R-后。关键如何让光标自动定位到R-后。能不能删除R-先不管它了。

以下是引用大红袍在2015/8/27 11:11:00的发言：

那你在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

新增行后，光标没有定位到R-吧，而且鼠标点击这个单元格后，内如自动为空了。

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