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

如何根据“长x宽x高”列自动获得“长度”“宽度”“高度”？

具体说明如下图。

谢谢！！

此主题相关图片如下：foxttt.jpg

先谢谢哈

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

DataColChanged事件

Dim Multi As String = e.DataRow("长x宽x高")
Dim Values() as String
Values = Multi.split("*")
If e.DataCol.Name = "长x宽x高" Then
    e.DataRow("长度") = Values(0)
    e.DataRow("宽度") = Values(1)
    e.DataRow("高度") = Values(2)
End If

哗！！！狐狸爸爸亲自写的代码，眼泪哗哗的。。。

当然，同时感谢smileboy哈