主题：关于简码的问题

If e.DataCol.Name = "第一列" Then

    If e.DataRow.IsNull("第一列") = False

        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

End If