主题：放在移动U盘怎么办

 如2楼

http://www.foxtable.com/help/topics/0358.htm

 你的图片文件需要放在项目文件夹下

If e.DataCol.Name = "第二列" Then
    Dim Oldstr As String =e.DataRow("第一列")
    Dim Newstr As String
    For Each s As String In Oldstr
        If Char.IsDigit(s) = False And Char.IsUpper(s)=False And Char.IsLower(s)=False Then
            Newstr + = s
        End If
    Next
    Newstr = Right(Newstr,10)
    Newstr=Newstr.Trim("")
    Newstr = ProjectPath & NewStr & e.DataRow("第二列")
    e.DataRow("第三列")="" & Newstr & ""
End If