- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 字符拆分 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103385)
-- 发布时间：2017/7/6 21:23:00
-- 字符拆分
可以把某列拆分吗？
把一列拆分到 第二列和第三列，第二列为第一列的第一个字符，第三列为第一列第二个字符和第二个字符后面的
感谢 感谢
此主题相关图片如下：qq截图20170706212306.png
If e.DataCol.Name = "文件夹编号转换_后10位字符" 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 < 2 Then
Newstr = Oldstr(i) & Newstr
End If
Next
Newstr = "" & NewStr & ""
\'e.DataRow("第六列")
e.DataRow("文件夹编号转换_后10位字符")="" & Newstr & ""
End If
-- 发布时间：2017/7/6 23:20:00
--
If e.DataCol.Name = "文件夹编号转换_商品名称" Then
Dim str As String = e.newvalue
If str > "" AndAlso str.length > 0 Then
e.DataRow("第一列") = str.substring(0,1)
Else
e.DataRow("第一列") = Nothing
End If
If str > "" AndAlso str.length > 1 Then
e.DataRow("第二列") = str.substring(1)
Else
e.DataRow("第二列") = Nothing
End If
End If