代码.......

Select Case e.DataCol.Name
    Case "第一列"
        If e.NewValue IsNot Nothing AndAlso e.newvalue.Length > 10 Then
            Dim str As String = ""
            Dim idx As Integer = 0
            Do While str.length < 10
                Dim ch As String = e.NewValue.Chars(e.NewValue.Length - idx -1)
                If Char.IsNumber(ch) OrElse Char.IsLower(ch) OrElse Char.IsUpper(ch) OrElse Char.IsControl(ch) OrElse Char.IsPunctuation(ch) OrElse Char.IsSymbol(ch) OrElse Char.IsWhiteSpace(ch) OrElse Char.IsSeparator(ch) Then
                    idx += 1
                Else
                    str = ch & str
                    idx += 1
                End If
            Loop
            e.DataRow("第四列") = str
            For Each f As String In FileSys.GetDirectories(ProjectPath)
                If FileSys.GetName(f).Contains(str) Then
                    e.DataRow("第二列") = FileSys.GetName(f)
                    Exit For
                End If
            Next
        End If
End Select