主题：[求助]自动生成代码缩写

 求大师指点：

Select Case e.DataCol.name
    Case "动作名称"
        If e.NewValue Is Nothing Then
            e.DataRow("动作代码") = Nothing
        Else
            e.DataRow("动作代码") = GetPy(e.NewValue,True)
        End If
End Select

这段代码生成 后会将：”蒙压“生成 为“LY”，应该生成为：“MY"。

求解决方法