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

If e.DataCol.Name = "第一列" Then
    Dim str As String = e.DataRow("第一列")
    e.DataRow("第三列") = ""
    For i As Integer = Str.Length - 1 To 0 Step - 1
        If Asc(str(i)) < 0 AndAlso e.DataRow("第三列").Length < 10 Then
            e.DataRow("第三列") + = str(i)
        End If
    Next
    e.DataRow("第三列") = "C\123" & e.DataRow("第三列") & e.DataRow("第二列")
End If