主题：将某列的字符拆成两列

说句大不敬的话，这样的数据、这样的表、这样的项目，就不应该拿出来用！

数据不规范，也可能是导入别人的，情有可原；列名也不规范，怨不得别人：大小写统一，不难吧？

直接在导入后将【规格型号】列的数据规范化，不需要增加两列、再拆分：

DataColChanged

If e.DataCol.Name = "规格型号" Then
    Dim s As String = e.DataRow(e.DataCol).ToLower().Replace("m","").Replace("*","x").Replace(" ","").Replace("y","*0.9144").Replace("""","*25.4").Replace("ft","*0.3048")
    If s.Contains("x") Then
        e.DataRow(e.DataCol) = Eval(s.Split("x")(0)) & "mm x " & Eval(s.Split("x")(1)) & "m"
    End If
End If