Dim chrs() As Char = {"*", " "} Dim ary() As String = e.NewValue.split(chrs) e.DataRow("规格(mm)长") = ary(0) e.DataRow("规格(mm)宽") = ary(1) e.DataRow("规格(mm)高") = ary(2)