主题：数据简化

Datacolchanged中输入下列代码,在此,我是将第一列做为尺寸的存放列的,在此可以输入:2000*1200*1050*950,类似格式的任何数据

If e.DataCol.Name = "第一列" Then '如果更改的是第一列
    If e.DataRow.IsNull("第一列") Then '第一列是否为空
        e.DataRow("规格") = Nothing '如果为空,则清除
        e.DataRow("桶径") = Nothing '如果为空,则清除
        e.DataRow("内宽") = Nothing '如果为空,则清除
        e.DataRow("轴孔") = Nothing '如果为空,则清除
    Else
        Dim Multi As String = e.DataRow("第一列")
        Dim Values() As String
        Values = Multi.split("*")
        e.DataRow("规格") = Values(0)
        e.DataRow("桶径") = Values(1)
        e.DataRow("内宽") = Values(2)
        e.DataRow("轴孔") = Values(3)
    End If
End If