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

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

If e.DataCol.Name = "图片地址" Then

    Dim Oldstr As String =e.DataRow("产品名称")

    Dim Newstr As String = ""

    

    For i As Integer = Oldstr.Length - 1 To 0 Step - 1

        If Asc(Oldstr.Chars(i)) < 0  AndAlso Newstr.Length < 10 Then

            Newstr = Oldstr(i) & Newstr

        End If

    Next

    Newstr = "E:\电子商务\" & NewStr & e.DataRow("文件夹编号")

    e.DataRow("图片地址")="[" & Newstr & "]"

End If