主题：关于简码的问题

假设为A表，第一列为“公司名”，第二列为“简码”我想要提取“公司名”列里的第3个字开始做为简码，限制为6个英文字母（需要大写）后面加3个数字

请问这事件代码怎么写呢？

 If e.DataCol.Name = "第一列" Then
    If e.newValue.Length > 3 Then
        Dim str As String = GetPy(e.NewValue.SubString(3),True)
        If str.Length > 6 Then str = str.SubString(0,6)
        e.DataRow("第二列") = str.ToUpper
    Else
        e.DataRow("第二列") = Nothing
    End If
Else
    e.DataRow("第二列") = Nothing
End If

删除数据是还是有错误（不是删除行）

此主题相关图片如下：错误2.jpg

还有能不能去掉企业名称里的（）呢？

比如说 西门子（中国）有限公司  它会显示 Z(ZG)Y,但是我的目的是 ZZGYXG

DataColChanged事件

'''...
If e.DataCol.Name = "第一列" Then
    If e.DataRow.IsNull("第一列") = False
        Dim str As String = e.NewValue.Replace("(", "").replace(")", "").Replace("（", "").replace("）", "")
        If str.Length > 3 Then
            str = GetPy(str.SubString(3),True)
            If str.Length > 6 Then str = str.SubString(0,6)
            e.DataRow("第二列") = str.ToUpper
        Else
            e.DataRow("第二列") = Nothing
        End If
    Else
        e.DataRow("第二列") = Nothing
    End If
End If