主题：[求助]如何根据“长x宽x高”列自动获得“长度”“宽度”“高度”？

DataColChanged事件

if e.DataCol.Name = "长x宽x高"
    If e.NewValue = "" Then
         e.DataRow("长") = nothing
         e.DataRow("宽") = nothing
         e.DataRow("高") = nothing
    Else
        Dim Vals() As String = e.NewValue.Split("*")
        If Vals.Length <> 3 Then
             messageBox.Show("输入错误")
        Else
             e.DataRow("长") = Vals(0)
             e.DataRow("宽") = Vals(1)
             e.DataRow("高") = Vals(2)
        End If
    End If
End If