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 = "E:\电子商务\" & NewStr & e.DataRow("文件夹编号")
e.DataRow("图片地址")="[" & Newstr & "]"
End If
能把我看看这个怎么改吗?
现在是过滤了字母、数字、但是还没过滤 空格
也就是后面的10位跳过字母、数字、空格、
如果设计在扩展类型为文件,设计一个按钮功能为:“打开目录”按钮的代码该怎么写啊!感谢
[此贴子已经被作者于2014-4-13 13:23:08编辑过]