主题：[求助]字符串提取字段split

datacolchanged事件。

If e.DataCol.Name = "公司产品图号"
    If e.NewValue = Nothing Then
        e.DataRow("产品型号") = Nothing
        e.DataRow("压力") = Nothing
        e.DataRow("口径") = Nothing
    Else
        Dim chrs() As Char = {"-", " "}
        Dim ary() As String = e.NewValue.split(chrs)
        e.DataRow("产品型号") = ary(0)
        e.DataRow("压力") = ary(1)
        e.DataRow("口径") = ary(2)
    End If
End If