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
加好友 
发短信
Post By：2017/7/6 23:20:00 [显示全部帖子]
