主题：怎么筛选提取啊 帮帮忙

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

    Dim s1,s2 As String

    s1 = e.DataRow("第一列")

    For i As Integer = 0 To s1.Length-1

        If Char.IsLower(s1.Chars(i)) = False AndAlso Char.IsUpper(s1.Chars(i)) = False AndAlso Char.IsDigit(s1.Chars(i)) = False

            s2 += s1.Chars(i)

        End If

    Next

    e.DataRow("第三列") = Right(s2,10)

End If