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(StrToNarrow(Oldstr.Chars(i))) < 0 AndAlso Oldstr.Chars(i) <> "】" AndAlso Newstr.Length < 10 Then
Newstr = Oldstr(i) & Newstr
End If
Next
Newstr = "" & NewStr & ""
'e.DataRow("第六列")
e.DataRow("文件夹编号转换_后10位字符")="" & Newstr & ""
End If
加好友 
发短信
Post By：2018/11/27 12:17:00 [显示全部帖子]
