If e.DataCol.Name = "商品名称"
Dim p As String = "[0-9a-zA-Z]+"
Dim txt = e.DataRow("商品名称")
Dim r As New System.Text.RegularExpressions.Regex(p)
Dim str = r.Split(txt)
e.DataRow("备注") = str(0)
e.DataRow("商品分类") = str(1)
e.DataRow("公司") = txt.replace(str(0),"").replace(str(1),"")
End If