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